--- orig/planner-gnus.el +++ mod/planner-gnus.el @@ -135,6 +135,10 @@ (gnus-group-select-group) (gnus-summary-goto-article article)))) +(defun planner-gnus-resolve-url (id) + "A Gnus ID should not be displayed." + "") + (fset 'planner-get-from 'planner-gnus-get-address) (fset 'planner-get-message-id 'planner-gnus-get-message-id) (custom-add-option 'planner-annotation-functions 'planner-gnus-annotation-from-summary) @@ -143,6 +147,7 @@ (add-hook 'planner-annotation-functions 'planner-gnus-annotation-from-message) (add-hook 'planner-browse-url-functions 'planner-gnus-browse-url) (planner-option-customized 'planner-url-list (append (list "gnus://") planner-url-list)) +(add-to-list 'planner-resolve-url-table '("gnus://" . planner-gnus-resolve-url)) (provide 'planner-gnus)