diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-11-21 00:35:13 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-11-21 00:35:13 -0500 |
| commit | 11f4500d354e568020ee67136fa3efccb0c8aed1 (patch) | |
| tree | bf2f6588f3a2e8343410210cdf1bfff341421501 | |
| parent | 3eda2253d80322640be4ec0381194d4f387e6cc9 (diff) | |
| download | emacs.d-11f4500d354e568020ee67136fa3efccb0c8aed1.tar.gz | |
gnus--last-message-link: Guard against nil
| -rw-r--r-- | lisp/init-mail.el | 5 |
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 |