Modified lisp/gnus-sum.el diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 423de35..8452bb9 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -9077,6 +9077,13 @@ non-numeric or nil fetch the number specified by the (setq number (gnus-summary-insert-subject message-id))) ;; and display the article. (gnus-summary-select-article nil nil nil number) + (when (bound-and-true-p gnus-registry-install) + (let ((header (gnus-summary-article-header (gnus-summary-article-number)))) + (gnus-registry-handle-action + message-id nil + (gnus-method-to-full-server-name gnus-override-method) + (mail-header-subject header) + (mail-header-from header)))) (throw 'found t))) (gnus-message 3 "Couldn't fetch article %s" message-id)))))))