2001-06-03 Dale Hagglund <rdh@best.com>

       * gnus-mlspl.el (gnus-group-split-fancy): Fix generation of split
       restrict clauses.

2001-06-07 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	From Benjamin Rutt <brutt+news@bloomington.in.us>

	* message.el (message-wide-reply-confirm-recipients): New variable.

2001-06-06  Mark Thomas  <mthomas@edrc.cmu.edu>

	* nnmail.el (nnmail-fix-eudora-headers): Change the In-Reply-To
	fix so it works with XEmacs.

2001-06-07 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nnrss.el (nnrss-retrieve-headers): Support description as extra
	headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43206fc..ba2a46c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
+2001-06-03  Dale Hagglund  <rdh@best.com>
+       
+       * gnus-mlspl.el (gnus-group-split-fancy): Fix generation of split
+       restrict clauses.
+
+2001-06-07 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       
+       From Benjamin Rutt <brutt+news@bloomington.in.us>
+       
+       * message.el (message-wide-reply-confirm-recipients): New variable.
+
+2001-06-06  Mark Thomas  <mthomas@edrc.cmu.edu>
+
+       * nnmail.el (nnmail-fix-eudora-headers): Change the In-Reply-To
+       fix so it works with XEmacs.
+       
+2001-06-07 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnrss.el (nnrss-retrieve-headers): Support description as extra
+       headers.
+
 2001-06-07 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnrss.el: Fix a few bugs.

diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el
index 46ccc99..126c7d2 100644 (file)
--- a/lisp/gnus-mlspl.el
+++ b/lisp/gnus-mlspl.el
@@ -196,12 +196,9 @@ Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns:
                         (list 'any split-regexp)
                         ;; Generate RESTRICTs for SPLIT-EXCLUDEs.
                         (if (listp split-exclude)
-                            (let ((seq split-exclude)
-                                  res)
-                              (while seq
-                                (push (cons '- (pop seq))
-                                      res))
-                              (apply #'nconc (nreverse res)))
+                             (apply #'append 
+                                    (mapcar (lambda (arg) (list '- arg))
+                                            split-exclude))
                           (list '- split-exclude))
                         (list group-clean))
                        split)

diff --git a/lisp/message.el b/lisp/message.el
index 94e62f6..00a090e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -986,6 +986,16 @@ Except if it is nil, use Gnus native MUA; if it is t, use
   :version "21.1"
   :group 'message)
 
+(defcustom message-wide-reply-confirm-recipients nil
+  "Whether to confirm a wide reply to multiple email recipients.
+If this variable is nil, don't ask whether to reply to all recipients.
+If this variable is non-nil, pose the question \"Reply to all
+recipients?\" before a wide reply to multiple recipients.  If the user
+answers yes, reply to all recipients as usual.  If the user answers
+no, only reply back to the author."
+  :group 'message-headers
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar message-sending-message "Sending...")
@@ -4043,7 +4053,12 @@ responses here are directed to other addresses.")))
                                (lambda (addr) (cdr addr)) ccalist ", "))))
            (when (string-match "^ +" (cdr ccs))
              (setcdr ccs (substring (cdr ccs) (match-end 0))))
-           (push ccs follow-to)))))
+           (push ccs follow-to)))
+       ;; Allow the user to be asked whether or not to reply to all
+       ;; recipients in a wide reply.
+       (if (and ccalist wide message-wide-reply-confirm-recipients
+                (not (y-or-n-p "Reply to all recipients?")))
+           (setq follow-to (delq (assoc 'Cc follow-to) follow-to)))))
     follow-to))
 
 

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 8b6befa..993f002 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1120,8 +1120,8 @@ Return the number of characters in the body."
       (beginning-of-line)
       (insert "X-Gnus-Broken-Eudora-"))
     (goto-char (point-min))
-    (when (re-search-forward "^In-Reply-To:[^\n]+\\(\n[ \t]+\\)" nil t)
-      (replace-match "" t t nil 1))))
+    (when (re-search-forward "^\\(In-Reply-To:[^\n]+\\)\n[ \t]+" nil t)
+      (replace-match "\\1" t))))
 
 (custom-add-option 'nnmail-prepare-incoming-header-hook
                   'nnmail-fix-eudora-headers)

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index aad8fcc..48a1180 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -154,6 +154,10 @@
 
 (defvar nnrss-use-local nil)
 
+(defvar nnrss-description-field 'X-Gnus-Description
+  "Field name used for DESCRIPTION.
+To use the description in headers, put this name into `nnmail-extra-headers'.")
+
 (nnoo-define-basics nnrss)
 
 ;;; Interface functions
@@ -181,6 +185,12 @@
                    "\t" ;; refs
                    "0" "\t" ;; chars
                    "0" "\t" ;; lines
+                   "" "\t" ;; Xref
+                   (if (memq nnrss-description-field nnmail-extra-headers)
+                       (concat (symbol-name nnrss-description-field)
+                               ": "
+                               (nnrss-format-string (nth 6 e)) "\t")
+                     "")
                    "\n")))))
   'nov)
 
@@ -210,9 +220,8 @@
          (goto-char (point-min))
          (if (nth 3 e)
              (insert "Subject: " (nnrss-format-string (nth 3 e)) "\n"))
-         (insert "From: " (if (nth 4 e)
-                              (nnrss-format-string (nth 4 e))
-                            "(nobody)" "\n"))
+         (if (nth 4 e)
+             (insert "From: " (nnrss-format-string (nth 4 e)) "\n"))
          (if (nth 5 e)
              (insert "Date: " (nnrss-format-string (nth 5 e)) "\n"))
          (insert "Message-ID: " (format "<%d@%s.nnrss>" (car e) group) "\n")