From: lantz moore <lmoore@contigo.com>
Subject: [patch] pgnus-0.7[89] can't retrieve mail using a directory source
Date: 27 Feb 1999 02:00:20 -0800 [thread overview]
Message-ID: <8690dkxj2j.fsf@godzilla.contigo.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 245 bytes --]
between 0.77 and 0.78 gnus stopped retrieving mail from my procmail
directory.
the following patch (against 0.79) seems to fix the problem. while i'm
not sure this was "the right way" to fix it, it does seem like "the right
thing" to do. :)
[-- Attachment #2: pgnus-0.79-suffix-patch --]
[-- Type: application/octet-stream, Size: 1699 bytes --]
diff -c -r pgnus-0.79-orig/lisp/ChangeLog pgnus-0.79/lisp/ChangeLog
*** pgnus-0.79-orig/lisp/ChangeLog Sat Feb 27 01:42:45 1999
--- pgnus-0.79/lisp/ChangeLog Sat Feb 27 01:39:14 1999
***************
*** 1,3 ****
--- 1,8 ----
+ 1999-02-27 lantz moore <lmoore@contigo.com>
+
+ * nnmail.el (nnmail-get-new-mail): honor suffix for spool-files of
+ type directory.
+
Fri Feb 26 18:54:16 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.79 is released.
diff -c -r pgnus-0.79-orig/lisp/nnmail.el pgnus-0.79/lisp/nnmail.el
*** pgnus-0.79-orig/lisp/nnmail.el Sat Feb 27 01:42:39 1999
--- pgnus-0.79/lisp/nnmail.el Sat Feb 27 01:40:11 1999
***************
*** 1376,1387 ****
;; Hack to only fetch the contents of a single group's spool file.
(when (and (eq (car source) 'directory)
group)
! (setq source (append source
! (list :predicate
! `(lambda (file)
! (string-match
! ,(concat (regexp-quote group) "$")
! file))))))
(when nnmail-fetched-sources
(if (member source nnmail-fetched-sources)
(setq source nil)
--- 1376,1389 ----
;; Hack to only fetch the contents of a single group's spool file.
(when (and (eq (car source) 'directory)
group)
! (mail-source-bind (directory source)
! (setq source (append source
! (list :predicate
! `(lambda (file)
! (string-match
! ,(concat (regexp-quote
! (concat group suffix)) "$")
! file)))))))
(when nnmail-fetched-sources
(if (member source nnmail-fetched-sources)
(setq source nil)
[-- Attachment #3: Type: text/plain, Size: 83 bytes --]
--
lantz moore, contigo software lmoore@contigo.com
next reply other threads:[~1999-02-27 10:00 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-02-27 10:00 lantz moore [this message]
1999-02-27 10:06 ` lantz moore
1999-02-27 13:11 ` Lars Magne Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8690dkxj2j.fsf@godzilla.contigo.com \
--to=lmoore@contigo.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).