From: Steven L Baur <steve@miranova.com>
Subject: Re: September Gnus 0.28 is released
Date: 17 Jan 1996 17:39:58 -0800 [thread overview]
Message-ID: <m2rawyjn69.fsf@miranova.com> (raw)
In-Reply-To: Lars Magne Ingebrigtsen's message of 17 Jan 1996 14:27:21 -0800
This fixes a couple of typos, one of which is XEmacs only. I haven't
tested the boring-headers fix, but it seems like the reasonable thing
to do. (Many pardons if this comes out garbled, I have a bad feeling
right now).
===================================================================
RCS file: RCS/ChangeLog,v
retrieving revision 1.24
diff -u -r1.24 ChangeLog
--- ChangeLog 1996/01/18 00:38:14 1.24
+++ ChangeLog 1996/01/18 01:10:50
@@ -1,3 +1,11 @@
+Wed Jan 17 17:00:55 1996 Steven L. Baur <steve@miranova.com>
+
+ * gnus.el (gnus-article-hide-boring-headers): gnus-article-hide-header
+ needed a parameter.
+
+ * gnus-xmas.el (gnus-xmas-find-file-noselect):
+ nnheader-insert-file-contents-literally lost the prefix
+
Wed Jan 17 22:58:05 1996 Lars Magne Ingebrigtsen <larsi@narfi.ifi.uio.no>
* gnus.el (gnus-article-hide-header): Hide boring headers
===================================================================
RCS file: RCS/gnus.el,v
retrieving revision 1.23
diff -u -r1.23 gnus.el
--- gnus.el 1996/01/18 00:38:14 1.23
+++ gnus.el 1996/01/18 01:08:43
@@ -13135,9 +13135,11 @@
(cond
;; Hide empty headers.
((eq elem 'empty)
- (while (re-search-forward "^[^:]+:[ \t]\n[^ \t]" nil t)
+ (while (re-search-forward "^\\([^:]+\\):[ \t]\n[^ \t]" nil t)
(forward-line -1)
- (gnus-article-hide-header)))
+ (gnus-article-hide-header
+ (buffer-substring (match-beginning 1)
+ (match-end 1)))))
;; Hide boring Newsgroups header.
((eq elem 'newsgroups)
(when (equal (mail-fetch-field "newsgroups")
===================================================================
RCS file: RCS/gnus-xmas.el,v
retrieving revision 1.9
diff -u -r1.9 gnus-xmas.el
--- gnus-xmas.el 1996/01/18 00:38:14 1.9
+++ gnus-xmas.el 1996/01/18 01:22:12
@@ -24,6 +24,7 @@
;;; Code:
+(eval-when-compile (require 'cl))
(require 'text-props)
(defvar menu-bar-mode t)
@@ -632,7 +633,7 @@
(erase-buffer)
(if rawfile
(condition-case ()
- (nnheader-insert-file-contents-literally filename t)
+ (insert-file-contents-literally filename t)
(file-error
;; Unconditionally set error
(setq error t)))
--
steve@miranova.com baur
next prev parent reply other threads:[~1996-01-18 1:39 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-01-17 22:27 Lars Magne Ingebrigtsen
1996-01-18 1:39 ` Steven L Baur [this message]
1996-01-18 1:51 ` Steven L Baur
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=m2rawyjn69.fsf@miranova.com \
--to=steve@miranova.com \
/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).