X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=vm;h=1b34b49567dd5992d71507460887e707d7b5368e;hb=2f2c011e5cb2ba04ea1fb48e93a38db35da0c773;hp=6f41d75ba8516252b47cedce7f3af05aee29d6ce;hpb=5ba6c861c5c215cd9b3e1e1a15c2f01999ee329e;p=elisp.git

diff --git a/vm b/vm
index 6f41d75..1b34b49 100644
--- a/vm
+++ b/vm
@@ -585,9 +585,9 @@ an attachment")
         (ff/first-buffer-in-mode (cdr l) m))))
 
 (defun ff/compose-mail (&optional force-new)
-  "Switch to an existing buffer with major mode `mail-mode',
+  "Cycles through an existing buffers with major mode `mail-mode',
 or invoke `vm-compose-mail' if none can be found or if FORCE-NEW
-is t. If already in a mail buffer, burry it and go to the next."
+is t."
   (interactive "P")
   (when (eq major-mode 'mail-mode) (bury-buffer))
   (let ((buf (and (not force-new)