Bob Rogers wrote:
From: Stephen Warren <[EMAIL PROTECTED]>
Date: Wed, 30 Jan 2008 20:28:40 -0700
Bob Rogers wrote:
> After upgrading from 1.1.4 to 1.1.12, I noticed that the tmda-pending
> script now drops the ".msg" from the message file name in "terse"
> output. Unfortunately, this breaks M-x tmda-pending, which relies on
> the ".msg" suffix to recognize the name. The attached patch to tmda.el
> fixes the problem, in a way that allows both styles of output to be
> parsed.
As far as I can tell, the attached diff is the minimal precise change
required for this fix. Can you test it. If it works, I'll check it in.
Thanks.
Index: tmda.el
===================================================================
--- tmda.el (revision 2194)
+++ tmda.el (working copy)
@@ -617,7 +617,7 @@
(let ((winwidth (1- (window-width))))
(goto-char (point-min))
(while (not (eobp))
- (cond ((looking-at ".*[0-9.]+\\.msg[\t ]")
+ (cond ((looking-at ".*[0-9.]+\\(\\.msg\\)?[\t ]")
(insert "[ ] "))
((looking-at "^$")) ; do nothing
((looking-at "^-\\*- ")) ; again, do nothing
@@ -639,7 +639,7 @@
(save-excursion
(beginning-of-line)
(when (looking-at "\\[.\\] ")
- (progn (re-search-forward "\\([0-9.]+msg\\)[\t ]")
+ (progn (re-search-forward "\\([0-9.]+\\(\\.msg\\)?\\)[\t ]")
(match-string 1)))))
(defmacro tmda-pending-command (&rest forms)
_________________________________________________
tmda-workers mailing list ([email protected])
http://tmda.net/lists/listinfo/tmda-workers
