[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: nnmail-fancy-expiry-target problems
From: |
Katsumi Yamaoka |
Subject: |
Re: nnmail-fancy-expiry-target problems |
Date: |
Thu, 18 Oct 2007 14:51:42 +0900 |
User-agent: |
Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.50 (gnu/linux) |
>>>>> Austin Frank wrote:
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> string-match(nil "\"John Q. Public\" <jqpublic@MIT.EDU>")
> nnmail-fancy-expiry-target("mail.academic")
You may possibly be the first person who tried using `to-from'
and `nnmail-fancy-expiry-target' ever since it was introduced in
December, 2001. IIUC, this is a bug that arises in the case
where `message-dont-reply-to-names' is nil, though it is likely
to default to nil in most Gnus users. Could you try this patch?
--- nnmail.el~ 2007-10-04 21:53:35 +0000
+++ nnmail.el 2007-10-18 05:49:39 +0000
@@ -1910,8 +1910,10 @@
;; To or From header
((and (equal header 'to-from)
(or (string-match (cadr regexp-target-pair) from)
- (and (string-match (message-dont-reply-to-names) from)
- (string-match (cadr regexp-target-pair) to))))
+ (and (string-match (cadr regexp-target-pair) to)
+ (let ((rmail-dont-reply-to-names
+ (message-dont-reply-to-names)))
+ (equal (rmail-dont-reply-to from) "")))))
(setq target (format-time-string (caddr regexp-target-pair) date)))
((and (not (equal header 'to-from))
(string-match (cadr regexp-target-pair)