diff options
Diffstat (limited to 'lisp/km-gnus.el')
-rw-r--r-- | lisp/km-gnus.el | 47 |
1 files changed, 23 insertions, 24 deletions
diff --git a/lisp/km-gnus.el b/lisp/km-gnus.el index 9190777..dee7d76 100644 --- a/lisp/km-gnus.el +++ b/lisp/km-gnus.el @@ -20,7 +20,6 @@ ;;; Code: -(require 'dash) (require 'projectile) (require 'gnus) (require 'gnus-group) @@ -56,35 +55,35 @@ is off." (save-excursion (goto-char (point-max)) (widget-forward -1) - (--when-let (or (get-text-property (point) 'gnus-string) - (get-text-property (point) 'shr-url)) - (kill-new it))))) + (when-let ((link (or (get-text-property (point) 'gnus-string) + (get-text-property (point) 'shr-url)))) + (kill-new link))))) (defun km/gnus--gmane-link (&optional perma) (with-current-buffer gnus-original-article-buffer - (-when-let* ((blink (message-field-value "Archived-At")) - (link (or (and (string-match - (rx string-start - (zero-or-more space) - "<" - (group (one-or-more (not (any ">")))) - ">" - string-end) - blink) - (match-string 1 blink)) - blink))) + (when-let ((blink (message-field-value "Archived-At")) + (link (or (and (string-match + (rx string-start + (zero-or-more space) + "<" + (group (one-or-more (not (any ">")))) + ">" + string-end) + blink) + (match-string 1 blink)) + blink))) (if perma link (replace-regexp-in-string "\\`http://permalink\.gmane\.org/" - "http://thread.gmane.org/" - link))))) + "http://thread.gmane.org/" + link))))) (defun km/gnus-copy-gmane-link-as-kill (&optional perma) (interactive "P") (km/gnus-summary-set-current-article) (with-current-buffer gnus-original-article-buffer - (--when-let (km/gnus--gmane-link perma) - (kill-new (message "%s" it))))) + (when-let ((link (km/gnus--gmane-link perma))) + (kill-new (message "%s" link))))) (defun km/gnus-copy-message-link (follow) "Copy link for current message. @@ -95,19 +94,19 @@ argument FOLLOW, follow link instead of copying it." (km/gnus-summary-set-current-article) (with-current-buffer gnus-original-article-buffer (save-excursion - (--when-let (or (km/gnus--gmane-link) - (km/gnus--last-message-link)) + (when-let ((link (or (km/gnus--gmane-link) + (km/gnus--last-message-link)))) (funcall (if follow #'browse-url (lambda (s) (kill-new (message "%s" s)))) - it))))) + link))))) ;;;###autoload (defun km/gnus-copy-message-id-as-kill () (interactive) (with-current-buffer gnus-original-article-buffer - (--when-let (message-field-value "Message-ID") - (kill-new (message "%s" it))))) + (when-let ((mid (message-field-value "Message-ID"))) + (kill-new (message "%s" mid))))) (defun km/gnus-open-github-patch () "Open patch from GitHub email." |