Mercurial > hg > xemacs

comparison mail-from-inf.el @ 61:963ac2f8e386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
old local
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Fri, 05 Apr 2024 10:13:30 +0100
parents eee08de75336
children
comparison
equal deleted inserted replaced
60:77aefd805030 61:963ac2f8e386
290 (gnus-group-select-group) 290 (gnus-group-select-group)
291 (while (gnus-summary-first-unread-article) 291 (while (gnus-summary-first-unread-article)
292 (let ((sco (get-buffer "*Shell Command Output*"))) 292 (let ((sco (get-buffer "*Shell Command Output*")))
293 (if sco 293 (if sco
294 (kill-buffer sco))) 294 (kill-buffer sco)))
295 (gnus-edit-and-move-to-diary '(16 . t))) 295 (gnus-edit-and-move-to-diary_1 nil t))
296 (gnus-summary-exit) 296 (gnus-summary-exit)
297 ) 297 )
298 ) 298 )
299 299
300 (add-hook 'gnus-after-getting-new-news-hook
301 (lambda ()
302 (if (member "_diary" ht-gnus-just-read)
303 (straight-to-diary))))
304
300 (provide 'mail-from-inf) 305 (provide 'mail-from-inf)