2001-07-09 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nntp.el (nntp-send-command, nntp-send-command-nodelete):
	(nntp-send-command-and-decode): Use gnus-point-at-bol.

2001-07-09 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
	From  Paul Jarc <prj@po.cwru.edu>

	* message.el (message-use-mail-followup-to): New variable.
	(message-get-reply-headers): Use it.

2001-07-04  Gerd Moellmann  <gerd@gnu.org>

	* nnheader.el (nnheader-init-server-buffer): Make sure the
	*nntpd* buffer is made multibyte instead of a random buffer.

2001-07-09 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-get-newsgroup-headers-xover): Get headers only
	when it returns headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 857b585..1375992 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
+2001-07-09 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nntp.el (nntp-send-command, nntp-send-command-nodelete):
+       (nntp-send-command-and-decode): Use gnus-point-at-bol.
+
+2001-07-09 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       From  Paul Jarc <prj@po.cwru.edu> 
+
+       * message.el (message-use-mail-followup-to): New variable.
+       (message-get-reply-headers): Use it.
+
+2001-07-04  Gerd Moellmann  <gerd@gnu.org>
+
+       * nnheader.el (nnheader-init-server-buffer): Make sure the
+       *nntpd* buffer is made multibyte instead of a random buffer.
+       
+2001-07-09 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-get-newsgroup-headers-xover): Get headers only
+       when it returns headers.
+
 2001-07-07  Simon Josefsson  <jas@extundo.com>
 
        * rfc2047.el (rfc2047-encode-message-header): Skip header when
@@ -65,6 +86,7 @@
        * nntp.el (nntp-send-command-nodelete): ditto.
        * nntp.el (nntp-send-command-and-decode): ditto.
 
+>>>>>>> 6.485
 2001-06-30  YAGI Tatsuya  <yagi@is.titech.ac.jp>
 
        * gnus-start.el (gnus-check-first-time-used): Use `if' instead of

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1e68cad..f1e4406 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5171,7 +5171,7 @@ Return a list of headers that match SEQUENCE (see
        (let ((gnus-nov-is-evil t))
          (nconc
           (nreverse headers)
-          (when (gnus-retrieve-headers sequence group)
+          (when (eq (gnus-retrieve-headers sequence group) 'headers)
             (gnus-get-newsgroup-headers))))))))
 
 (defun gnus-article-get-xrefs ()

diff --git a/lisp/message.el b/lisp/message.el
index ffa1b45..cb909aa 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -401,7 +401,7 @@ and respond with new To and Cc headers."
   :group 'message-interface
   :type '(choice function (const nil)))
 
-(defcustom message-use-followup-to t
+(defcustom message-use-followup-to 'ask
   "*Specifies what to do with Followup-To header.
 If nil, always ignore the header.  If it is t, use its value, but
 query before using the \"poster\" value.  If it is the symbol `ask',
@@ -413,6 +413,16 @@ always query the user whether to use the value.  If it is the symbol
                 (const use)
                 (const ask)))
 
+(defcustom message-use-mail-followup-to t
+  "*Specifies what to do with Mail-Followup-To header.
+If nil, always ignore the header.  If it is the symbol `ask', always
+query the user whether to use the value.  If it is the symbol `use',
+always use the value."
+  :group 'message-interface
+  :type '(choice (const :tag "ignore" nil)
+                (const use)
+                (const ask)))
+
 (defcustom message-sendmail-f-is-evil nil
   "*Non-nil means don't add \"-f username\" to the sendmail command line.
 Doing so would be even more evil than leaving it out."
@@ -4019,7 +4029,7 @@ OTHER-HEADERS is an alist of header/value pairs."
          mct (message-fetch-field "mail-copies-to")
          reply-to (message-fetch-field "reply-to")
          mrt (message-fetch-field "mail-reply-to")
-         mft (and message-use-followup-to
+         mft (and message-use-mail-followup-to
                    (message-fetch-field "mail-followup-to")))
 
     ;; Handle special values of Mail-Copies-To.
@@ -4044,9 +4054,8 @@ OTHER-HEADERS is an alist of header/value pairs."
        (save-excursion
          (message-set-work-buffer)
           (if (and mft
-                   message-use-followup-to
                    wide
-                   (or (not (eq message-use-followup-to 'ask))
+                   (or (not (eq message-use-mail-followup-to 'ask))
                        (message-y-or-n-p
                        (concat "Obey Mail-Followup-To? ") t "\
 You should normally obey the Mail-Followup-To: header.  In this
@@ -4058,8 +4067,12 @@ which directs your response to " (if (string-match "," mft)
                               "the specified addresses"
                             "that address only") ".
 
-If a message is posted to several mailing lists, Mail-Followup-To is
-often used to direct the following discussion to one list only,
+Most commonly, Mail-Followup-To is used by a mailing list poster to
+express that responses should be sent to just the list, and not the
+poster as well.
+
+If a message is posted to several mailing lists, Mail-Followup-To may
+also be used to direct the following discussion to one list only,
 because discussions that are spread over several lists tend to be
 fragmented and very difficult to follow.
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index b15885e..48754f6 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -475,8 +475,8 @@ the line could be found."
   (save-excursion
     (unless (gnus-buffer-live-p nntp-server-buffer)
       (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
-    (mm-enable-multibyte)
     (set-buffer nntp-server-buffer)
+    (mm-enable-multibyte)
     (erase-buffer)
     (kill-all-local-variables)
     (setq case-fold-search t)          ;Should ignore case.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 39ed314..a3efe54 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -394,7 +394,7 @@ noticing asynchronous data.")
          (set-buffer buffer)
          (goto-char pos)
          (if (looking-at (regexp-quote command))
-             (delete-region pos (progn (forward-line 1) (point-at-bol))))
+             (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
          )))
     ))
 
@@ -414,7 +414,7 @@ noticing asynchronous data.")
          (set-buffer buffer)
          (goto-char pos)
          (if (looking-at (regexp-quote command))
-             (delete-region pos (progn (forward-line 1) (point-at-bol))))
+             (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
          )))
     ))
 
@@ -439,7 +439,7 @@ noticing asynchronous data.")
          (set-buffer buffer)
          (goto-char pos)
          (if (looking-at (regexp-quote command))
-             (delete-region pos (progn (forward-line 1) (point-at-bol))))
+             (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
          )))
     ))