Re: [PATCH] Fix M-x tmda-pending for new script output

This is a multi-part message in MIME format.
--------------020905040609000904030106
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

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.

--------------020905040609000904030106
Content-Type: text/x-patch;
 name="tmda-el.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="tmda-el.diff"

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)

--------------020905040609000904030106
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline