[Emacs-commit] emacs/lisp/mh-e mh-search.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Bill Wohler <wohler>    06/06/29 21:03:45

Modified files:
        lisp/mh-e      : mh-search.el ChangeLog 

Log message:
        (mh-search, mh-index-group-by-folder): Add "the" in loop construct to
        be consistent with other loops, and because edebug doesn't work
        without it.
        (mh-folder-exists-p): Strip + from folder to avoid redundant +s in
        regexp (closes SF #1514424).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-search.el?cvsroot=emacs&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/ChangeLog?cvsroot=emacs&r1=1.223&r2=1.224

Patches:
Index: mh-search.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-search.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- mh-search.el        16 Jun 2006 00:50:00 -0000      1.13
+++ mh-search.el        29 Jun 2006 21:03:45 -0000      1.14
@@ -318,9 +318,9 @@
 
         (message "%s found %s matches in %s folders"
                  (upcase-initials (symbol-name mh-searcher))
-                 (loop for msg-hash being hash-values of mh-index-data
+                 (loop for msg-hash being the hash-values of mh-index-data
                        sum (hash-table-count msg-hash))
-                 (loop for msg-hash being hash-values of mh-index-data
+                 (loop for msg-hash being the hash-values of mh-index-data
                        count (> (hash-table-count msg-hash) 0)))))))
 
 ;; Shush compiler.
@@ -1362,7 +1362,7 @@
   (save-excursion
     (goto-char (point-min))
     (let ((result-table (make-hash-table :test #'equal)))
-      (loop for msg being hash-keys of mh-index-msg-checksum-map
+      (loop for msg being the hash-keys of mh-index-msg-checksum-map
             do (push msg (gethash (car (gethash
                                         (gethash msg mh-index-msg-checksum-map)
                                         mh-index-checksum-origin-map))
@@ -1524,7 +1524,8 @@
          (with-temp-buffer
            (mh-exec-cmd-output "folder" nil "-fast" "-nocreate" folder)
            (goto-char (point-min))
-           (looking-at (format "+?%s" folder))))))
+           ;; Strip + from folder; use optional + in regexp.
+           (looking-at (format "+?%s" (substring folder 1)))))))
 
 (defun mh-msg-exists-p (msg folder)
   "Check if MSG exists in FOLDER."

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/ChangeLog,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- ChangeLog   29 Jun 2006 20:43:44 -0000      1.223
+++ ChangeLog   29 Jun 2006 21:03:45 -0000      1.224
@@ -1,3 +1,14 @@
+2006-06-29  Bill Wohler  <address@hidden>
+
+       * mh-search.el (mh-search, mh-index-group-by-folder): Add "the" in
+       loop construct to be consistent with other loops, and because
+       edebug doesn't work without it.
+       
+2006-06-29  Ted Phelps  <address@hidden>  (tiny change)
+
+       (mh-folder-exists-p): Strip + from folder to avoid redundant +s in
+       regexp (closes SF #1514424).
+
 2006-06-29  Sergey Poznyakoff  <address@hidden>  (tiny change)
 
        * mh-mime.el (mh-mime-save-parts): Add -store option to