/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by miles, Mon Sep 20 12:03:04 2004 UTC revision 1.22 by miles, Sat Sep 25 12:02:03 2004 UTC
# Line 1801  this is a reply." Line 1801  this is a reply."
1801                  ;; Obsolete format of header match.                  ;; Obsolete format of header match.
1802                  (and (gnus-buffer-live-p gnus-article-copy)                  (and (gnus-buffer-live-p gnus-article-copy)
1803                       (with-current-buffer gnus-article-copy                       (with-current-buffer gnus-article-copy
1804                         (let ((header (message-fetch-field (pop style))))                         (save-restriction
1805                           (and header                           (nnheader-narrow-to-headers)
1806                                (string-match (pop style) header))))))                           (let ((header (message-fetch-field (pop style))))
1807                               (and header
1808                                    (string-match (pop style) header)))))))
1809                 ((or (symbolp match)                 ((or (symbolp match)
1810                      (functionp match))                      (functionp match))
1811                  (cond                  (cond
# Line 1819  this is a reply." Line 1821  this is a reply."
1821                    ;; New format of header match.                    ;; New format of header match.
1822                    (and (gnus-buffer-live-p gnus-article-copy)                    (and (gnus-buffer-live-p gnus-article-copy)
1823                         (with-current-buffer gnus-article-copy                         (with-current-buffer gnus-article-copy
1824                           (let ((header (message-fetch-field (nth 1 match))))                           (save-restriction
1825                             (and header                             (nnheader-narrow-to-headers)
1826                                  (string-match (nth 2 match) header))))))                             (let ((header (message-fetch-field (nth 1 match))))
1827                                 (and header
1828                                      (string-match (nth 2 match) header)))))))
1829                   (t                   (t
1830                    ;; This is a form to be evaled.                    ;; This is a form to be evaled.
1831                    (eval match)))))                    (eval match)))))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26