[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.21 emacs/lisp/gnus/gnus-msg.el:1.22
*** emacs/lisp/gnus/gnus-msg.el:1.21    Mon Sep 20 12:03:04 2004
--- emacs/lisp/gnus/gnus-msg.el Sat Sep 25 12:02:03 2004
***************
*** 1801,1809 ****
                ;; Obsolete format of header match.
                (and (gnus-buffer-live-p gnus-article-copy)
                     (with-current-buffer gnus-article-copy
!                      (let ((header (message-fetch-field (pop style))))
!                        (and header
!                             (string-match (pop style) header))))))
               ((or (symbolp match)
                    (functionp match))
                (cond
--- 1801,1811 ----
                ;; Obsolete format of header match.
                (and (gnus-buffer-live-p gnus-article-copy)
                     (with-current-buffer gnus-article-copy
!                      (save-restriction
!                        (nnheader-narrow-to-headers)
!                        (let ((header (message-fetch-field (pop style))))
!                          (and header
!                               (string-match (pop style) header)))))))
               ((or (symbolp match)
                    (functionp match))
                (cond
***************
*** 1819,1827 ****
                  ;; New format of header match.
                  (and (gnus-buffer-live-p gnus-article-copy)
                       (with-current-buffer gnus-article-copy
!                        (let ((header (message-fetch-field (nth 1 match))))
!                          (and header
!                               (string-match (nth 2 match) header))))))
                 (t
                  ;; This is a form to be evaled.
                  (eval match)))))
--- 1821,1831 ----
                  ;; New format of header match.
                  (and (gnus-buffer-live-p gnus-article-copy)
                       (with-current-buffer gnus-article-copy
!                        (save-restriction
!                          (nnheader-narrow-to-headers)
!                          (let ((header (message-fetch-field (nth 1 match))))
!                            (and header
!                                 (string-match (nth 2 match) header)))))))
                 (t
                  ;; This is a form to be evaled.
                  (eval match)))))