Mercurial > hg > xemacs
changeset 61:963ac2f8e386
old local
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Fri, 05 Apr 2024 10:13:30 +0100 |
| parents | 77aefd805030 |
| children | fea10b67cc09 |
| files | mail-from-inf.el my-news.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/mail-from-inf.el Fri Apr 05 09:11:09 2024 +0100 +++ b/mail-from-inf.el Fri Apr 05 10:13:30 2024 +0100 @@ -292,9 +292,14 @@ (let ((sco (get-buffer "*Shell Command Output*"))) (if sco (kill-buffer sco))) - (gnus-edit-and-move-to-diary '(16 . t))) + (gnus-edit-and-move-to-diary_1 nil t)) (gnus-summary-exit) ) ) +(add-hook 'gnus-after-getting-new-news-hook + (lambda () + (if (member "_diary" ht-gnus-just-read) + (straight-to-diary)))) + (provide 'mail-from-inf)
--- a/my-news.el Fri Apr 05 09:11:09 2024 +0100 +++ b/my-news.el Fri Apr 05 10:13:30 2024 +0100 @@ -814,7 +814,7 @@ (setq message-citation-line-function (function safe-citation)) -(defvar safelink_pat "https://[a-z0-9.]*safelinks.protection.outlook.com/\\?url=\\(https?%3A%2F%2F[^&<>\"]*\\)[^\"<> ]*") +(defvar safelink_pat "https://[a-z0-9.]*safelinks.protection.outlook.com/\\?url=\\(\\(ftp\\|https?\\)%3A%2F%2F[^&<>\"]*\\)[^\"<> \n]*") (require 'url)