Mercurial > emacs
comparison lisp/gnus/shr.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 | 969fb8574065 |
children | eb9988805a37 |
comparison
equal
deleted
inserted
replaced
111400:17d49dad0c8b | 111401:733acab855e4 |
---|---|
338 | 338 |
339 (defun shr-browse-url () | 339 (defun shr-browse-url () |
340 "Browse the URL under point." | 340 "Browse the URL under point." |
341 (interactive) | 341 (interactive) |
342 (let ((url (get-text-property (point) 'shr-url))) | 342 (let ((url (get-text-property (point) 'shr-url))) |
343 (if (not url) | 343 (cond |
344 (message "No link under point") | 344 ((not url) |
345 (browse-url url)))) | 345 (message "No link under point")) |
346 ((string-match "^mailto:" url) | |
347 (gnus-url-mailto url)) | |
348 (t | |
349 (browse-url url))))) | |
346 | 350 |
347 (defun shr-save-contents (directory) | 351 (defun shr-save-contents (directory) |
348 "Save the contents from URL in a file." | 352 "Save the contents from URL in a file." |
349 (interactive "DSave contents of URL to directory: ") | 353 (interactive "DSave contents of URL to directory: ") |
350 (let ((url (get-text-property (point) 'shr-url))) | 354 (let ((url (get-text-property (point) 'shr-url))) |