Mercurial > emacs
comparison lisp/gnus/mm-decode.el @ 111401:733acab855e4
Merge changes made in Gnus trunk.
mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot.
nnimap.el (nnimap-find-article-by-message-id): Don't EXAMINE a group if it's already selected.
gnus.texi (Customizing the IMAP Connection): Document `nnimap-expunge' and remove `nnimap-expunge-inbox' from example.
gnus.texi (Customizing the IMAP Connection): Remove nnir mention, since that works by default.
gnus-sum.el (gnus-summary-show-article): Take `t' as the arg to mean "raw".
gnus-html.el (gnus-html-browse-url): Implement mailto: URLs.
shr.el (shr-browse-url): Implement mailto: URLs.
nnir.el, gnus-sum.el: Improve thread-referral.
message.el (message-send-mail): Use the value of message-courtesy-message from the message buffer.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 04 Nov 2010 22:18:09 +0000 |
| parents | 8bf30c3cb442 |
| children | 5b30cfe2d392 |
comparison
equal
deleted
inserted
replaced
| 111400:17d49dad0c8b | 111401:733acab855e4 |
|---|---|
| 1249 file) | 1249 file) |
| 1250 (when filename | 1250 (when filename |
| 1251 (setq filename (gnus-map-function mm-file-name-rewrite-functions | 1251 (setq filename (gnus-map-function mm-file-name-rewrite-functions |
| 1252 (file-name-nondirectory filename)))) | 1252 (file-name-nondirectory filename)))) |
| 1253 (setq file | 1253 (setq file |
| 1254 (read-file-name (or prompt | 1254 (read-file-name |
| 1255 (format "Save MIME part to (default %s): " | 1255 (or prompt |
| 1256 (or filename ""))) | 1256 (format "Save MIME part to (default %s): " |
| 1257 (or mm-default-directory default-directory) | 1257 (or filename ""))) |
| 1258 (or filename ""))) | 1258 (or mm-default-directory default-directory) |
| 1259 (expand-file-name (or filename "") | |
| 1260 (or mm-default-directory default-directory)))) | |
| 1259 (if (file-directory-p file) | 1261 (if (file-directory-p file) |
| 1260 (setq file (expand-file-name filename file)) | 1262 (setq file (expand-file-name filename file)) |
| 1261 (setq file (expand-file-name | 1263 (setq file (expand-file-name |
| 1262 file (or mm-default-directory default-directory)))) | 1264 file (or mm-default-directory default-directory)))) |
| 1263 (setq mm-default-directory (file-name-directory file)) | 1265 (setq mm-default-directory (file-name-directory file)) |