SF.net SVN: tmda: [2195] trunk/tmda/contrib

Revision: 2195
          http://tmda.svn.sourceforge.net/tmda/?rev=2195&view=rev
Author:   srwarren
Date:     2008-02-21 19:51:42 -0800 (Thu, 21 Feb 2008)

Log Message:
-----------
2008-02-21  Bob Rogers  <[email protected]>

* Updated tmda.el to work with the current tmda-pending output.

Modified Paths:
--------------
    trunk/tmda/contrib/ChangeLog
    trunk/tmda/contrib/tmda.el

Modified: trunk/tmda/contrib/ChangeLog
===================================================================
--- trunk/tmda/contrib/ChangeLog	2007-11-21 05:07:06 UTC (rev 2194)
+++ trunk/tmda/contrib/ChangeLog	2008-02-22 03:51:42 UTC (rev 2195)
@@ -1,3 +1,7 @@
+2008-02-21  Bob Rogers  <[email protected]>
+
+	* Updated tmda.el to work with the current tmda-pending output.
+
 2007-02-23  Stephen Warren  <[email protected]>
 
 	* Updated tofmipd.init per patch from Bernard Johnson; don't auto-

Modified: trunk/tmda/contrib/tmda.el
===================================================================
--- trunk/tmda/contrib/tmda.el	2007-11-21 05:07:06 UTC (rev 2194)
+++ trunk/tmda/contrib/tmda.el	2008-02-22 03:51:42 UTC (rev 2195)
@@ -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)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.