[gnus git] branch master updated: m0-1-46-gc387d52 =1= * gnus-compat.el: More the compat functions more compatible.

       via  c387d52af8371b1d4defdf23cc409ab6b21fb4eb (commit)
      from  a6e0787ddafd545a57b57d97725a26b2fcf26ab7 (commit)


- Log -----------------------------------------------------------------
commit c387d52af8371b1d4defdf23cc409ab6b21fb4eb
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 2 10:48:52 2012 +0100

    * gnus-compat.el: More the compat functions more compatible.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d94f352..b34cccc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-02-02  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-compat.el: More the compat functions more compatible.
+
 	* shr.el (shr-put-image): Remove underlines from sliced images.
 	(shr-zoom-image): Compute the region to be replaced more correctly.
 
diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index f92c5b2..2cca394 100644
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -36,12 +36,18 @@
 (when (and (not (fboundp 'help-function-arglist))
 	   (fboundp 'function-arglist))
   (defun help-function-arglist (def &optional preserve-names)
+    "Return a formal argument list for the function DEF.
+PRESERVE-NAMES is ignored."
     (cdr (car (read-from-string (downcase (function-arglist def)))))))
 
 (when (= (length (help-function-arglist 'delete-directory)) 1)
   (defvar gnus-compat-original-delete-directory
     (symbol-function 'delete-directory))
-  (defun delete-directory (directory &optional recursive)
+  (defun delete-directory (directory &optional recursive trash)
+    "Delete the directory named DIRECTORY.  Does not follow symlinks.
+If RECURSIVE is non-nil, all files in DIRECTORY are deleted as well.
+TRASH is ignored."
+    (interactive "DDirectory: ")
     (if (not recursive)
 	(funcall gnus-compat-original-delete-directory directory)
       (dolist (file (directory-files directory t))

-----------------------------------------------------------------------
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      |    2 ++
 lisp/gnus-compat.el |    8 +++++++-
 2 files changed, 9 insertions(+), 1 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