diff options
Diffstat (limited to 'piem-gnus.el')
| -rw-r--r-- | piem-gnus.el | 50 |
1 files changed, 24 insertions, 26 deletions
diff --git a/piem-gnus.el b/piem-gnus.el index c1551ce..ca128fb 100644 --- a/piem-gnus.el +++ b/piem-gnus.el @@ -65,33 +65,31 @@ message itself if it looks like a patch." (when (derived-mode-p 'gnus-article-mode 'gnus-summary-mode) (cond (gnus-article-mime-handles - (let ((patches - (delq nil - (mapcar (lambda (handle) - (and (listp handle) - (piem-am-patch-attachment-p - (mm-handle-media-type handle)) - (with-temp-buffer - (mm-display-inline handle) - (buffer-substring-no-properties - (point-min) (point-max))))) - gnus-article-mime-handles)))) - (when patches - (cons (lambda () - (dolist (patch patches) - (insert patch))) - "mbox")))) + (when-let ((patches + (delq nil + (mapcar (lambda (handle) + (and (listp handle) + (piem-am-patch-attachment-p + (mm-handle-media-type handle)) + (with-temp-buffer + (mm-display-inline handle) + (buffer-substring-no-properties + (point-min) (point-max))))) + gnus-article-mime-handles)))) + (cons (lambda () + (dolist (patch patches) + (insert patch))) + "mbox"))) (gnus-article-buffer - (let ((patch (with-current-buffer gnus-article-buffer - (save-restriction - (widen) - (and (string-match-p piem-patch-subject-re - (message-field-value "subject")) - (buffer-substring-no-properties - (point-min) (point-max))))))) - (when patch - (cons (lambda () (insert patch)) - "mbox"))))))) + (when-let ((patch (with-current-buffer gnus-article-buffer + (save-restriction + (widen) + (and (string-match-p piem-patch-subject-re + (message-field-value "subject")) + (buffer-substring-no-properties + (point-min) (point-max))))))) + (cons (lambda () (insert patch)) + "mbox")))))) ;;;###autoload (define-minor-mode piem-gnus-mode |