diff options
| author | Bill Wohler | 2006-06-02 18:47:44 +0000 |
|---|---|---|
| committer | Bill Wohler | 2006-06-02 18:47:44 +0000 |
| commit | c1def6ea27a433be107ea99b0e2684492aea8165 (patch) | |
| tree | 78be982c1b925cab53dc3b305ca7d2c100f9735c | |
| parent | 2e17852c46bb7ba57c4f830914c74dc61430a033 (diff) | |
| download | emacs-c1def6ea27a433be107ea99b0e2684492aea8165.tar.gz emacs-c1def6ea27a433be107ea99b0e2684492aea8165.zip | |
(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).
| -rw-r--r-- | lisp/mh-e/mh-search.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el index 14891204fad..b6f8dd71d9a 100644 --- a/lisp/mh-e/mh-search.el +++ b/lisp/mh-e/mh-search.el | |||
| @@ -1524,7 +1524,7 @@ construct the base name." | |||
| 1524 | (with-temp-buffer | 1524 | (with-temp-buffer |
| 1525 | (mh-exec-cmd-output "folder" nil "-fast" "-nocreate" folder) | 1525 | (mh-exec-cmd-output "folder" nil "-fast" "-nocreate" folder) |
| 1526 | (goto-char (point-min)) | 1526 | (goto-char (point-min)) |
| 1527 | (not (eobp)))))) | 1527 | (looking-at (format "+?%s" folder)))))) |
| 1528 | 1528 | ||
| 1529 | (defun mh-msg-exists-p (msg folder) | 1529 | (defun mh-msg-exists-p (msg folder) |
| 1530 | "Check if MSG exists in FOLDER." | 1530 | "Check if MSG exists in FOLDER." |