Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 68012:256cc87e0619
* 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.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Wed, 04 Jan 2006 01:03:20 +0000 |
| parents | 7882fc7df359 |
| children | bbc0e52abce5 |
comparison
equal
deleted
inserted
replaced
| 68011:0317e633f999 | 68012:256cc87e0619 |
|---|---|
| 855 (read-file-name "Store in directory: " nil nil t nil)) | 855 (read-file-name "Store in directory: " nil nil t nil)) |
| 856 ((and (or prompt | 856 ((and (or prompt |
| 857 (equal t mh-mime-save-parts-default-directory)) | 857 (equal t mh-mime-save-parts-default-directory)) |
| 858 mh-mime-save-parts-directory) | 858 mh-mime-save-parts-directory) |
| 859 (read-file-name (format | 859 (read-file-name (format |
| 860 "Store in directory: [%s] " | 860 "Store in directory (default %s): " |
| 861 mh-mime-save-parts-directory) | 861 mh-mime-save-parts-directory) |
| 862 "" mh-mime-save-parts-directory t "")) | 862 "" mh-mime-save-parts-directory t "")) |
| 863 ((stringp mh-mime-save-parts-default-directory) | 863 ((stringp mh-mime-save-parts-default-directory) |
| 864 mh-mime-save-parts-default-directory) | 864 mh-mime-save-parts-default-directory) |
| 865 (t | 865 (t |