mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge changes made in Gnus trunk

Browse source 
2013-08-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
* gnus-group.el (gnus-group-delete-articles): Allow deleting only "old"
  articles.
* gnus-delay.el (gnus-delay-article): Run `message-send-hook' so that
  we can get spell-checking etc.
This commit is contained in:
Lars Magne Ingebrigtsen 2013-08-02 13:34:22 +00:00 • committed by Katsumi Yamaoka
parent 4b5c9326ce
commit 8f370b43d5
3 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-delay.el
View file

@ -80,6 +80,8 @@ DELAY is a string, giving the length of the time. Possible values are:
(list (read-string
"Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): "
gnus-delay-default-delay)))
;; Allow spell checking etc.
(run-hooks 'message-send-hook)
(let (num unit days year month day hour minute deadline)
(cond ((string-match
"\\([0-9][0-9][0-9]?[0-9]?\\)-\\([0-9]+\\)-\\([0-9]+\\)"