* gnus-sum.el (gnus-get-newsgroup-headers): Search for "from:"

	instead of "from: " for rfc822 compliance.

	* gnus-uu.el (gnus-uu-digest-mail-forward): Ditto. Insert SPC.

	* nnheader.el (nnheader-parse-head): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a103e3f..8ca328b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2000-10-17  Simon Josefsson  <simon@josefsson.org>
+
+       * gnus-sum.el (gnus-get-newsgroup-headers): Search for "from:"
+       instead of "from: " for rfc822 compliance.
+
+       * gnus-uu.el (gnus-uu-digest-mail-forward): Ditto. Insert SPC.
+
+       * nnheader.el (nnheader-parse-head): Ditto.
+
 2000-10-13  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * mail-source.el (defvar mail-source-keyword-map): Use

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1896c85..8cd5e30 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4745,7 +4745,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
            ;; From.
            (progn
              (goto-char p)
-             (if (search-forward "\nfrom: " nil t)
+             (if (search-forward "\nfrom:" nil t)
                  (funcall gnus-decode-encoded-word-function
                           (nnheader-header-value))
                "(nobody)"))

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index c1960f6..f4ff2ea 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -561,9 +561,9 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
        (delete-region (point) (gnus-point-at-eol))
        (insert subject))
       (goto-char (point-min))
-      (when (re-search-forward "^From: ")
+      (when (re-search-forward "^From:")
        (delete-region (point) (gnus-point-at-eol))
-       (insert from))
+       (insert " " from))
       (message-forward post t))
     (setq gnus-uu-digest-from-subject nil)))
 

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1861d7f..24d6090 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -216,7 +216,7 @@ on your system, you could say something like:
           ;; From.
           (progn
             (goto-char p)
-            (if (search-forward "\nfrom: " nil t)
+            (if (search-forward "\nfrom:" nil t)
                 (nnheader-header-value) "(nobody)"))
           ;; Date.
           (progn