From: Steven L Baur <steve@miranova.com>
Cc: ding@ifi.uio.no
Subject: Re: September Gnus v0.95 is released
Date: 25 May 1996 19:07:05 -0700 [thread overview]
Message-ID: <m2wx206vcm.fsf@deanna.miranova.com> (raw)
In-Reply-To: Lars Magne Ingebrigtsen's message of 25 May 1996 17:44:57 -0700
Gnus '95 lossage on XEmacs patch. The test in the conditional is
wrong since XEmacs 19.14 does have insert-file-contents-literally.
This change should fix things for 19.13 as well, since almost
certainly nnheader-insert-file-contents-literally should be
nnheader-insert-raw-file-contents.
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.100
diff -u -r1.100 ChangeLog
--- ChangeLog 1996/05/26 01:09:08 1.100
+++ ChangeLog 1996/05/26 01:41:34
@@ -1,3 +1,8 @@
+Sat May 25 18:40:44 1996 Steven L Baur <steve@miranova.com>
+
+ * nnheader-ems.el: insert-file-contents-literally is defined in
+ XEmacs 19.14 -- use it.
+
Sun May 26 02:35:48 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
* nnheader-ems.el: Bind nnheader-insert-raw-file-contents.
===================================================================
RCS file: RCS/nnheader-ems.el,v
retrieving revision 1.2
diff -u -r1.2 nnheader-ems.el
--- nnheader-ems.el 1996/05/26 01:09:08 1.2
+++ nnheader-ems.el 1996/05/26 01:55:32
@@ -128,7 +128,7 @@
(erase-buffer)
(if rawfile
(condition-case ()
- (nnheader-insert-file-contents-literally filename t)
+ (nnheader-insert-raw-file-contents filename t)
(file-error
;; Unconditionally set error
(setq error t)))
@@ -169,20 +169,21 @@
buf)))
(eval-and-compile
+ (fset 'nnheader-insert-raw-file-contents
+ (if (fboundp 'insert-file-contents-literally)
+ 'insert-file-contents-literally
+ 'nnheader-xmas-insert-file-contents-literally))
(cond
;; Do XEmacs function bindings.
((string-match "XEmacs\\|Lucid" emacs-version)
(fset 'nnheader-run-at-time 'nnheader-xmas-run-at-time)
(fset 'nnheader-cancel-timer 'nnheader-xmas-cancel-timer)
- (fset 'nnheader-find-file-noselect 'nnheader-xmas-find-file-noselect)
- (fset 'nnheader-insert-file-contents-literally
- 'nnheader-xmas-insert-file-contents-literally))
+ (fset 'nnheader-find-file-noselect 'nnheader-xmas-find-file-noselect))
;; Do Emacs function bindings.
(t
(fset 'nnheader-run-at-time 'run-at-time)
(fset 'nnheader-cancel-timer 'cancel-timer)
(fset 'nnheader-find-file-noselect 'find-file-noselect)
- (fset 'nnheader-insert-raw-file-contents 'insert-file-contents-literally)
)))
(provide 'nnheader-ems)
--
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.
prev parent reply other threads:[~1996-05-26 2:07 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-05-26 0:44 Lars Magne Ingebrigtsen
1996-05-26 2:07 ` Steven L Baur [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2wx206vcm.fsf@deanna.miranova.com \
--to=steve@miranova.com \
--cc=ding@ifi.uio.no \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).