From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15166 Path: main.gmane.org!not-for-mail From: Dan Christensen Newsgroups: gmane.emacs.gnus.general Subject: Re: spontaneous nnfolder message deletion Date: Thu, 07 May 1998 16:58:13 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035154247 20569 80.91.224.250 (20 Oct 2002 22:50:47 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:50:47 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id OAA18502 for ; Thu, 7 May 1998 14:04:32 -0700 Original-Received: from sina.hpc.uh.edu (Sina.HPC.UH.EDU [129.7.3.5]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id RAA08334 for ; Thu, 7 May 1998 17:02:45 -0400 Original-Received: from sina.hpc.uh.edu (Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id PAH21176; Thu, 7 May 1998 16:02:14 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 07 May 1998 15:59:03 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id PAA21158 for ; Thu, 7 May 1998 15:58:53 -0500 (CDT) Original-Received: (qmail 1774 invoked by uid 504); 7 May 1998 20:58:34 -0000 Original-Received: (qmail 1771 invoked from network); 7 May 1998 20:58:33 -0000 Original-Received: from jhuml1.hcf.jhu.edu (128.220.2.86) by claymore.vcinet.com with SMTP; 7 May 1998 20:58:33 -0000 Original-Received: from chow.mat.jhu.edu by jhmail.hcf.jhu.edu (PMDF V5.1-10 #18666) with ESMTP id <01IWRCD9K1REBHA8GP@jhmail.hcf.jhu.edu> for ding@gnus.org; Thu, 7 May 1998 16:56:08 EDT Original-Received: (from jdc@localhost) by chow.mat.jhu.edu (8.7.6/8.7.3) id QAA07894; Thu, 07 May 1998 16:58:14 -0400 (EDT) In-reply-to: Danny Siu's message of "07 May 1998 10:20:33 -0700" Original-To: ding@gnus.org X-Mailer: Gnus v5.6.9/Emacs 19.34 Original-Lines: 63 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:15166 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:15166 Danny Siu writes: > Dan Christensen writes: > Dan> This is related to a patch I sent Lars last week. I don't know if > Dan> the problem will show up for users of 5.6.9. I've fixed the problem > Dan> and am about to send a patch to the patch to Lars. > > I had more than a dozen of messages automagically deleted in my nnfolders! > Fortunately, I had nnmail-delete-incoming set to nil and not much damage has > been done. Can you post the patch before 5.6.10 comes out? Well, at least this means that my latest patch isn't entirely to blame. Here's a patch to nnfolder which makes nnfolder-delete-mail less aggressive. The line numbers might not match exactly how things are in 5.6.9. In fact, I haven't tested this with stock 5.6.9 (ie. without the patch mentioned above), so please let me know if it works. Dan *** nnfolder.el Wed May 6 16:33:51 1998 --- nnfolder.el.old Fri May 1 17:26:14 1998 *************** *** 505,525 **** (not (search-forward "\n\n" pos t)))))) (defun nnfolder-delete-mail (&optional force leave-delim) ! "Delete the message that point is in. Optional argument ! FORCE ignored. If optional argument LEAVE-DELIM is t, ! then mailbox delimiter is not deleted. Point is left ! where the deleted region was." ! (delete-region ! (save-excursion ! (forward-line 1) ; in case point is at beginning of message already ! (nnmail-search-unix-mail-delim-backward) ! (if leave-delim (progn (forward-line 1) (point)) ! (point))) ! (progn ! (forward-line 1) ! (if (nnmail-search-unix-mail-delim) ! (point) ! (point-max))))) (defun nnfolder-possibly-change-group (group &optional server dont-check) ;; Change servers. --- 506,523 ---- (not (search-forward "\n\n" pos t)))))) (defun nnfolder-delete-mail (&optional force leave-delim) ! "Delete the message that point is in." ! (save-excursion ! (delete-region ! (save-excursion ! (nnmail-search-unix-mail-delim-backward) ! (if leave-delim (progn (forward-line 1) (point)) ! (point))) ! (progn ! (forward-line 1) ! (if (nnmail-search-unix-mail-delim) ! (point) ! (point-max)))))) (defun nnfolder-possibly-change-group (group &optional server dont-check) ;; Change servers.