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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.18.6.3 
emacs/lisp/gnus/gnus-msg.el:1.18.6.4
*** emacs/lisp/gnus/gnus-msg.el:1.18.6.3        Tue Sep 21 09:34:07 2004
--- emacs/lisp/gnus/gnus-msg.el Wed Sep 29 07:22:15 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)))))