* 0.13: (patch), better crashbox message...
@ 1997-11-07 18:40 jari.aalto
0 siblings, 0 replies; only message in thread
From: jari.aalto @ 1997-11-07 18:40 UTC (permalink / raw)
[-- 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))
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1997-11-07 18:40 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-11-07 18:40 0.13: (patch), better crashbox message jari.aalto
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).