From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23795 Path: main.gmane.org!not-for-mail From: Lloyd Zusman Newsgroups: gmane.emacs.gnus.general Subject: [PATCH for 0.91] (Was: Still having mail problems with version 0.88) Date: 04 Jul 1999 16:11:42 -0400 Organization: Linux Hippopotamus Preserve Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035161465 3985 80.91.224.250 (21 Oct 2002 00:51:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:51:05 +0000 (UTC) Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA27291 for ; Sun, 4 Jul 1999 17:01:30 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB27996; Sun, 4 Jul 1999 15:57:50 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 04 Jul 1999 15:56:34 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA26334 for ; Sun, 4 Jul 1999 15:56:21 -0500 (CDT) Original-Received: from home.ljz.net (root@home.ljz.net [207.198.184.200]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA27163; Sun, 4 Jul 1999 16:54:10 -0400 (EDT) Original-Received: (from gnus@localhost) by home.ljz.net (8.8.7/8.8.7) id QAA31563; Sun, 4 Jul 1999 16:11:43 -0400 Original-To: ding@gnus.org X-Face: "!ga1s|?LNLE3MeeeEYs(%LIl9q[xV9!j4#xf4!**BFW_ihlOb;:Slb>)vy>CJM writes: > Lloyd Zusman writes: > > > In versions 0.8{6,7,8}, whenever new mail arrives I get this prompt > > (followed by "Continue? "): > > > > Mail source error ((wrong-type-argument number-char-or-marker-p nil)). > > > > Here are all my `nnmail-*' and `mail-source-*' settings from my > > `.gnus.el' file: > > [...] > > I didn't see anything in particular that looked wrong there, but could > you try removing some of the stuff to find out what setting triggers > the bug? Well, I actually had some time this weekend, so I ended up doing more than that: I traced through the code in version 0.91 and finally found what was causing the problem. The following patch to pgnus-0.91 shows what I did to fix this. As to why this problem occurred in the first place, I have no idea. Perhaps it has something to do with the fact that I'm running XEmacs version 21.1 under RedHat Linux 5.0. The problem was absent in pgnus-0.85 and it is present in all versions of pgnus I've tried from version 0.86 through 0.91. My patch could very well be a "band-aid" which covers up a more fundamental problem ... ??? Any thoughts or ideas? *** mail-source.el.orig Sun Jul 4 15:49:34 1999 --- mail-source.el Sun Jul 4 16:08:18 1999 *************** *** 344,356 **** "Fetcher for directory sources." (mail-source-bind (directory source) (let ((found 0) ! (mail-source-string (format "directory:%s" path))) (dolist (file (directory-files path t (concat (regexp-quote suffix) "$"))) (when (and (file-regular-p file) (funcall predicate file) (mail-source-movemail file mail-source-crash-box)) ! (incf found (mail-source-callback callback file)))) found))) (defun mail-source-fetch-pop (source callback) --- 344,361 ---- "Fetcher for directory sources." (mail-source-bind (directory source) (let ((found 0) ! (mail-source-string (format "directory:%s" path)) ! result) (dolist (file (directory-files path t (concat (regexp-quote suffix) "$"))) (when (and (file-regular-p file) (funcall predicate file) (mail-source-movemail file mail-source-crash-box)) ! (setq result (mail-source-callback callback file)) ! ;;; Maybe this is some sort of XEmacs-ism??? ! (if result ! (incf found result) ! (incf found)))) found))) (defun mail-source-fetch-pop (source callback) *************** *** 412,422 **** "Fetcher for maildir sources." (mail-source-bind (maildir source) (let ((found 0) ! (mail-source-string (format "maildir:%s" path))) (dolist (file (directory-files path t)) (when (and (file-regular-p file) (not (rename-file file mail-source-crash-box))) ! (incf found (mail-source-callback callback file)))) found))) (provide 'mail-source) --- 417,432 ---- "Fetcher for maildir sources." (mail-source-bind (maildir source) (let ((found 0) ! (mail-source-string (format "maildir:%s" path)) ! result) (dolist (file (directory-files path t)) (when (and (file-regular-p file) (not (rename-file file mail-source-crash-box))) ! (setq result (mail-source-callback callback file)) ! ;;; Maybe this is some sort of XEmacs-ism??? ! (if result ! (incf found result) ! (incf found)))) found))) (provide 'mail-source) -- Lloyd Zusman ljz@asfast.com