[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:43:14 -0400 |
Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.16.4.4
emacs/lisp/gnus/gnus-msg.el:1.16.4.5
*** emacs/lisp/gnus/gnus-msg.el:1.16.4.4 Wed Oct 6 05:21:52 2004
--- emacs/lisp/gnus/gnus-msg.el Wed Oct 6 05:23:52 2004
***************
*** 915,921 ****
(not to-address)))
;; This is news.
(if post
! (message-news (or to-group group))
(set-buffer gnus-article-copy)
(gnus-msg-treat-broken-reply-to)
(message-followup (if (or newsgroup-p force-news)
--- 915,923 ----
(not to-address)))
;; This is news.
(if post
! (message-news
! (or to-group
! (and (not (gnus-virtual-group-p pgroup)) group)))
(set-buffer gnus-article-copy)
(gnus-msg-treat-broken-reply-to)
(message-followup (if (or newsgroup-p force-news)
***************
*** 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
--- 1803,1813 ----
;; 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)))))
--- 1823,1833 ----
;; 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)))))
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el [lexbind],
Miles Bader <=