(nnmail-process-unix-mail-format): Improve error message. Suggested

by Jari Aalto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2042c9e..56ccd95 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-18  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * nnmail.el (nnmail-process-unix-mail-format): Improve error
+       message.  Suggested by Jari Aalto.
+
 2003-01-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-followup-with-original): Clean up. 

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 4851711..cb1fb79 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -786,7 +786,9 @@ If SOURCE is a directory spec, try to return the group name component."
     (if (not (and (re-search-forward "^From " nil t)
                  (goto-char (match-beginning 0))))
        ;; Possibly wrong format?
-       (error "Error, unknown mail format! (Possibly corrupted.)")
+       (error "Error, unknown mail format! (Possibly corrupted %s `%s'.)"
+              (if (buffer-file-name) "file" "buffer")
+              (or (buffer-file-name) (buffer-name)))
       ;; Carry on until the bitter end.
       (while (not (eobp))
        (setq start (point)