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 |
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))))) |