From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12800 Path: main.gmane.org!not-for-mail From: Newsgroups: gmane.emacs.gnus.general Subject: 0.13: (patch), better crashbox message... Date: 07 Nov 1997 20:40:08 +0200 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Fri_Nov__7_20:40:06_1997-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035152273 5751 80.91.224.250 (20 Oct 2002 22:17:53 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:17:53 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id LAA08259 for ; Fri, 7 Nov 1997 11:46:10 -0800 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with ESMTP id NAA19093 for ; Fri, 7 Nov 1997 13:46:39 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no (8.8.7/8.8.7/ifi0.2) with SMTP id TAA26655 for ; Fri, 7 Nov 1997 19:40:43 +0100 (MET) Original-Received: (qmail 19940 invoked by uid 504); 7 Nov 1997 18:40:33 -0000 Original-Received: (qmail 19937 invoked from network); 7 Nov 1997 18:40:33 -0000 Original-Received: from axl01it.ntc.nokia.com (131.228.118.232) by claymore.vcinet.com with SMTP; 7 Nov 1997 18:40:33 -0000 Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id UAA07338 for ; Fri, 7 Nov 1997 20:39:46 +0200 (EET) Original-Received: from pegasus.tele.nokia.fi (pegasus.ntc.nokia.com [131.228.169.148]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id UAA10659 for ; Fri, 7 Nov 1997 20:40:10 +0200 Original-Received: (from jaalto@localhost) by pegasus.tele.nokia.fi (8.7.5/8.7.1) id UAA15690; Fri, 7 Nov 1997 20:40:08 +0200 (EET) X-My-Info: http://www.netforward.com/poboxes/?jari.aalto http://www.geocities.com/SiliconValley/Bay/2349 Send me subject "send help" to get my mailserver info. Original-To: Original-Lines: 64 X-Mailer: Quassia Gnus v0.13/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:12800 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12800 --Multipart_Fri_Nov__7_20:40:06_1997-1 Content-Type: text/plain; charset=US-ASCII 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 --Multipart_Fri_Nov__7_20:40:06_1997-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="nnmail.diff" Content-Transfer-Encoding: 7bit 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)) --Multipart_Fri_Nov__7_20:40:06_1997-1--