[gnus git] branch master updated: m0-7-203-gfa1c10e =2= (gnus-group-delete-articles): Allow deleting only "old" articles. ; Run message-send-hook when delaying articles

       via  fa1c10e7d3e7532f14e3c7308a25e7300175a035 (commit)
       via  15e4872e8bb7f27405dbacb4c46965f84ab7adc5 (commit)
      from  30651911fee6c0e8fd633b82cde7ce2524839dff (commit)


- Log -----------------------------------------------------------------
commit fa1c10e7d3e7532f14e3c7308a25e7300175a035
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Fri Aug 2 14:51:25 2013 +0200

    (gnus-group-delete-articles): Allow deleting only  "old" articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5f7d0f..670d84b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-08-02  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* 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.
 
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 8050f5d..9533f581 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2796,14 +2796,21 @@ server."
 	(lambda (group)
 	  (gnus-group-delete-group group nil t))))))
 
-(defun gnus-group-delete-articles (group)
-  "Delete all articles in the current group."
-  (interactive (list (gnus-group-group-name)))
+(defun gnus-group-delete-articles (group &optional oldp)
+  "Delete all articles in the current group.
+If OLDP (the prefix), only delete articles that are \"old\",
+according to the expiry settings.  Note that this will delete old
+not-expirable articles, too."
+  (interactive (list (gnus-group-group-name)
+		     current-prefix-arg))
   (let ((articles (gnus-uncompress-range (gnus-active group))))
     (when (gnus-yes-or-no-p
 	   (format "Do you really want to delete these %d articles forever? "
 		   (length articles)))
-      (gnus-request-expire-articles articles group 'force))))
+      (gnus-request-expire-articles articles group
+				    (if current-prefix-arg
+					nil
+				      'force)))))
 
 (defun gnus-group-delete-group (group &optional force no-prompt)
   "Delete the current group.  Only meaningful with editable groups.

commit 15e4872e8bb7f27405dbacb4c46965f84ab7adc5
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Fri Aug 2 14:37:49 2013 +0200

    Run message-send-hook when delaying articles
    
    * gnus-delay.el (gnus-delay-article): Run `message-send-hook' so that
    we can get spell-checking etc.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cdf48d1..e5f7d0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-02  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* gnus-delay.el (gnus-delay-article): Run `message-send-hook' so that
+	we can get spell-checking etc.
+
 2013-08-02  Katsumi Yamaoka  <[email protected]>
 
 	* rfc2047.el (rfc2047-encode-message-header): Unify charsets into
diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 921d241..24326b3 100644
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -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.
+  (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]+\\)"

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    8 ++++++++
 lisp/gnus-delay.el |    2 ++
 lisp/gnus-group.el |   15 +++++++++++----
 3 files changed, 21 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project