summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-11-21 00:35:13 -0500
committerKyle Meyer <kyle@kyleam.com>2015-11-21 00:35:13 -0500
commit11f4500d354e568020ee67136fa3efccb0c8aed1 (patch)
treebf2f6588f3a2e8343410210cdf1bfff341421501
parent3eda2253d80322640be4ec0381194d4f387e6cc9 (diff)
downloademacs.d-11f4500d354e568020ee67136fa3efccb0c8aed1.tar.gz
gnus--last-message-link: Guard against nil
-rw-r--r--lisp/init-mail.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el
index 2304c4b..3e53508 100644
--- a/lisp/init-mail.el
+++ b/lisp/init-mail.el
@@ -98,8 +98,9 @@ is off."
(save-excursion
(goto-char (point-max))
(widget-forward -1)
- (kill-new (or (get-text-property (point) 'gnus-string)
- (get-text-property (point) 'shr-url))))))
+ (--when-let (or (get-text-property (point) 'gnus-string)
+ (get-text-property (point) 'shr-url))
+ (kill-new it)))))
(defun km/gnus--gmane-link (&optional perma)
(with-current-buffer gnus-original-article-buffer