0.13: (patch), better crashbox message...

[<jari.aalto@poboxes.com>]

[-- Attachment #1: Type: text/plain, Size: 166 bytes --]


	Hi,

	I was getting lots of crash box messages (invalid format)
	and I thought the following patch would make spotting
	errors abit easier to regular user.

	jari


[-- Attachment #2: nnmail.diff --]
[-- Type: application/octet-stream, Size: 1421 bytes --]

Prereq: 1.13

===================================================================
RCS file: RCS/nnmail.el,v
retrieving revision 1.13
retrieving revision 1.13.1.1
diff -u -r1.13 -r1.13.1.1
--- 1.13	1997/11/07 13:37:39
+++ 1.13.1.1	1997/11/07 13:47:02
@@ -870,12 +870,18 @@
 
 (defun nnmail-process-unix-mail-format (func artnum-func)
   (let ((case-fold-search t)
-	start message-id content-length end skip head-end)
+	(delim "^From ")
+	start message-id content-length end skip head-end
+	)
     (goto-char (point-min))
-    (if (not (and (re-search-forward "^From " nil t)
+    (if (not (and (re-search-forward delim nil t)
 		  (goto-char (match-beginning 0))))
 	;; Possibly wrong format?
-	(error "Error, unknown mail format! (Possibly corrupted.)")
+	(progn
+	  (pop-to-buffer (current-buffer)) ;Show to user too
+	  (error "Error, unknown mail format! (Possibly corrupted `%s' .)"
+		 delim)
+	  )
       ;; Carry on until the bitter end.
       (while (not (eobp))
 	(setq start (point)
@@ -960,7 +966,11 @@
     (if (not (and (re-search-forward delim nil t)
 		  (forward-line 1)))
 	;; Possibly wrong format?
-	(error "Error, unknown mail format! (Possibly corrupted.)")
+	(progn
+	  (pop-to-buffer (current-buffer)) ;Show to user too
+	  (error "Error, unknown mail format! (Possibly corrupted `%s' .)"
+		 delim)
+	  )
       ;; Carry on until the bitter end.
       (while (not (eobp))
 	(setq start (point))