Fix sa-learn integration to insert a full From in the message envelope.

Before this was just "From\n" but now it includes "nobody" as the
sender and the date.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bda2a0..5ebc86a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-19  Tom Rauchenwald  <sehnsucht.nach.unendlichkeit@quantentunnel.de>  (tiny change)
+       * spam.el (spam-spamassassin-register-with-sa-learn): Insert a full
+       From header with a date and "nobody" as the sender.
+
 2011-01-19  Julien Danjou  <julien@danjou.info>
 
        * gnus-art.el (gnus-article-add-buttons): Simplify condition.

diff --git a/lisp/spam.el b/lisp/spam.el
index 194668e..3bce276 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -2726,9 +2726,8 @@ With a non-nil REMOVE, remove the ADDRESSES."
               (with-current-buffer summary-buffer-name
                 (setq article-string (spam-get-article-as-string article)))
               (when (stringp article-string)
-                (insert "From \n") ; mbox separator (sa-learn only checks the
-                                   ; first five chars, so we can get away with
-                                   ; a bogus line))
+                ;; mbox separator
+                (insert (concat "From nobody " (current-time-string) "\n"))
                 (insert article-string)
                 (insert "\n"))))
           ;; call sa-learn on all messages at the same time