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

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/06/02 18:47:44

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

Log message:
        (mh-folder-exists-p): Change test from an empty buffer, to one that
        contains the actual folder, since GNU mailutils' folder command
        displays output if the folder doesn't exist (closes SF #1499712).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-search.el.diff?tr1=1.11&tr2=1.12&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/mh-search.el
diff -u emacs/lisp/mh-e/mh-search.el:1.11 emacs/lisp/mh-e/mh-search.el:1.12
--- emacs/lisp/mh-e/mh-search.el:1.11   Sat Apr 15 00:28:08 2006
+++ emacs/lisp/mh-e/mh-search.el        Fri Jun  2 18:47:44 2006
@@ -1524,7 +1524,7 @@
          (with-temp-buffer
            (mh-exec-cmd-output "folder" nil "-fast" "-nocreate" folder)
            (goto-char (point-min))
-           (not (eobp))))))
+           (looking-at (format "+?%s" folder))))))
 
 (defun mh-msg-exists-p (msg folder)
   "Check if MSG exists in FOLDER."