* [patch] pgnus-0.7[89] can't retrieve mail using a directory source
@ 1999-02-27 10:00 lantz moore
1999-02-27 10:06 ` lantz moore
0 siblings, 1 reply; 3+ messages in thread
From: lantz moore @ 1999-02-27 10:00 UTC (permalink / 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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [patch] pgnus-0.7[89] can't retrieve mail using a directory source
1999-02-27 10:00 [patch] pgnus-0.7[89] can't retrieve mail using a directory source lantz moore
@ 1999-02-27 10:06 ` lantz moore
1999-02-27 13:11 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 3+ messages in thread
From: lantz moore @ 1999-02-27 10:06 UTC (permalink / raw)
um, whoops, sorry i base64'd that patch. i guess i'm having a tad too
much fun with all the mimeification jazz. won't happen again. :)
--
lantz moore, contigo software lmoore@contigo.com
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [patch] pgnus-0.7[89] can't retrieve mail using a directory source
1999-02-27 10:06 ` lantz moore
@ 1999-02-27 13:11 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1999-02-27 13:11 UTC (permalink / raw)
lantz moore <lmoore@contigo.com> writes:
> um, whoops, sorry i base64'd that patch.
Oh -- I didn't notice. :-)
MIME roolz.
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~1999-02-27 13:11 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-02-27 10:00 [patch] pgnus-0.7[89] can't retrieve mail using a directory source lantz moore
1999-02-27 10:06 ` lantz moore
1999-02-27 13:11 ` Lars Magne Ingebrigtsen
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).