Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

* mh-comp.el (mh-reply): Use standard default notation in prompts

Browse source 
(closes SF #1275933).

* mh-mime.el (mh-mime-save-parts): Ditto.

* mh-seq.el (mh-read-seq, mh-read-range): Ditto.
This commit is contained in:
Bill Wohler 2006-01-04 01:03:20 +00:00
parent 8a5db8aea1
commit 078cb3146b
4 changed files with 24 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mh-e/ChangeLog
View file

@ -1,5 +1,12 @@
2006-01-03 Bill Wohler <wohler@newt.com>
* mh-comp.el (mh-reply): Use standard default notation in
prompts (closes SF #1275933).
* mh-mime.el (mh-mime-save-parts): Ditto.
* mh-seq.el (mh-read-seq, mh-read-range): Ditto.
* mh-customize.el (mh-folder-msg-number): Snow is actually
off-white on low color displays which turns to white when bold.
This is unreadable on white backgrounds. Use snow with min-colors

2
lisp/mh-e/mh-comp.el
View file

@ -582,7 +582,7 @@ See also `mh-reply-show-message-flag',
(let ((minibuffer-help-form
"from => Sender only\nto => Sender and primary recipients\ncc or all => Sender and all recipients"))
(or mh-reply-default-reply-to
(completing-read "Reply to whom: [from] "
(completing-read "Reply to whom (default from): "
'(("from") ("to") ("cc") ("all"))
nil
t)))

2
lisp/mh-e/mh-mime.el
View file

@ -857,7 +857,7 @@ do the work."
(equal t mh-mime-save-parts-default-directory))
mh-mime-save-parts-directory)
(read-file-name (format
"Store in directory: [%s] "
"Store in directory (default %s): "
mh-mime-save-parts-directory)
"" mh-mime-save-parts-directory t ""))
((stringp mh-mime-save-parts-default-directory)

28
lisp/mh-e/mh-seq.el
View file

@ -420,9 +420,9 @@ Prompt with PROMPT, raise an error if the sequence is empty and
the NOT-EMPTY flag is non-nil, and supply an optional DEFAULT
sequence. A reply of '%' defaults to the first sequence
containing the current message."
(let* ((input (completing-read (format "%s %s %s" prompt "sequence:"
(let* ((input (completing-read (format "%s sequence%s: " prompt
(if default
(format "[%s] " default)
(format " (default %s)" default)
""))
(mh-seq-names mh-seq-list)
nil nil nil 'mh-sequence-history))
@ -513,20 +513,22 @@ should be replaced with:
(car (mh-seq-containing-msg (mh-get-msg-num nil) t)))
prompt (format "%s range" prompt))
(let* ((folder (or folder mh-current-folder))
(default (cond ((or (eq default t) (stringp default)) default)
((symbolp default) (symbol-name default))))
(guess (eq default t))
(counts (and guess (mh-folder-size folder)))
(unseen (and counts (> (cadr counts) 0)))
(large (and counts mh-large-folder (> (car counts) mh-large-folder)))
(str (cond ((and guess large
(setq default (format "last:%s" mh-large-folder)
prompt (format "%s (folder has %s messages)"
prompt (car counts)))
nil))
((and guess (not large) (setq default "all") nil))
((eq default nil) "")
(t (format "[%s] " default))))
(default (cond ((and guess large) (format "last:%s" mh-large-folder))
((and guess (not large)) "all")
((stringp default) default)
((symbolp default) (symbol-name default))))
(prompt (cond ((and guess large default)
(format "%s (folder has %s messages, default %s)"
prompt (car counts) default))
((and guess large)
(format "%s (folder has %s messages)"
prompt (car counts)))
(default
(format "%s (default %s)" prompt default))))
(minibuffer-local-completion-map mh-range-completion-map)
(seq-list (if (eq folder mh-current-folder)
mh-seq-list
@ -536,7 +538,7 @@ should be replaced with:
(mh-seq-names seq-list)))
(input (cond ((and (not ask-flag) unseen) (symbol-name mh-unseen-seq))
((and (not ask-flag) (not large)) "all")
(t (completing-read (format "%s: %s" prompt str)
(t (completing-read (format "%s: " prompt)
'mh-range-completion-function nil nil
nil 'mh-range-history default))))
msg-list)