[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el,v |
Date: |
Tue, 05 Sep 2006 08:17:36 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 06/09/05 08:17:35
Index: gnus/gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -b -r1.115 -r1.116
--- gnus/gnus-art.el 1 Sep 2006 23:52:28 -0000 1.115
+++ gnus/gnus-art.el 5 Sep 2006 08:17:33 -0000 1.116
@@ -2381,22 +2381,23 @@
(error))
gnus-newsgroup-ignored-charsets))
(inhibit-read-only t)
- start)
- (save-restriction
- (article-narrow-to-head)
- (while (not (eobp))
+ end start)
+ (goto-char (point-min))
+ (when (search-forward "\n\n" nil 'move)
+ (forward-line -1))
+ (setq end (point))
+ (while (not (bobp))
+ (while (progn
+ (forward-line -1)
+ (and (not (bobp))
+ (memq (char-after) '(?\t ? )))))
(setq start (point))
- (if (prog1
- (looking-at "\
+ (if (looking-at "\
\\(?:Resent-\\)?\\(?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\\)?Reply-To\\|Sender\
\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):")
- (while (progn
- (forward-line)
- (if (eobp)
- nil
- (memq (char-after) '(?\t ? ))))))
- (funcall gnus-decode-address-function start (point))
- (funcall gnus-decode-header-function start (point)))))))
+ (funcall gnus-decode-address-function start end)
+ (funcall gnus-decode-header-function start end))
+ (goto-char (setq end start)))))
(defun article-decode-group-name ()
"Decode group names in `Newsgroups:'."