X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnmail.el;h=cb1fb795dfa0922f1d290a27b90c8f22ccfeb134;hb=1e585628801b1b6bd020b76e22e8c9d3965fda83;hp=4851711a9d7eb24c2c7f1abe645fe4656b58c7dc;hpb=6d39f24728a9501b1a8d040f59fb434874a8585a;p=gnus

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 4851711a9..cb1fb795d 100644
--- 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)