[gnus git] branch master updated: m0-9-13-g75e9b45 =2= XEmacs build fix ; Define `delete-dups' for XEmacs

       via  75e9b45e4f20d65e8b0dcb85520da245d66a11c6 (commit)
       via  dc3a544b0e20e5991195d42dd822b5e5f235d9f0 (commit)
      from  11445f9254c4fbb959d098d36960cc8ebd4839d1 (commit)


- Log -----------------------------------------------------------------
commit 75e9b45e4f20d65e8b0dcb85520da245d66a11c6
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sat Feb 1 12:03:56 2014 -0800

    XEmacs build fix

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27f0bf4..0a6a6c9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-02-01  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-notifications.el (gravatar-retrieve-synchronously): Declare for
+	XEmacs.
+
 	* nnrss.el (libxml-parse-html-region): Silence compilation error.
 
 2014-02-01  Daniel Dehennin  <[email protected]>
diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el
index 0621c23..ee1083d 100644
--- a/lisp/gnus-notifications.el
+++ b/lisp/gnus-notifications.el
@@ -102,6 +102,9 @@ Return a notification id if any, or t on success."
     ;; Don't return an id
     t))
 
+(declare-function gravatar-retrieve-synchronously "gravatar.el"
+		  (mail-address))
+
 (defun gnus-notifications-get-photo (mail-address)
   "Get photo for mail address."
   (let ((google-photo (when (and gnus-notifications-use-google-contacts

commit dc3a544b0e20e5991195d42dd822b5e5f235d9f0
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sat Feb 1 11:59:42 2014 -0800

    Define `delete-dups' for XEmacs

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index ce3ad98..deaf2f9 100644
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -129,6 +129,18 @@ TRASH is ignored."
       (forward-line arg))
     (beginning-of-line)))
 
+(unless (fboundp 'delete-dups)
+  (defun delete-dups (list)
+    "Destructively remove `equal' duplicates from LIST.
+Store the result in LIST and return it.  LIST must be a proper list.
+Of several `equal' occurrences of an element in LIST, the first
+one is kept."
+    (let ((tail list))
+      (while tail
+	(setcdr tail (delete (car tail) (cdr tail)))
+	(setq tail (cdr tail))))
+    list))
+
 (provide 'gnus-compat)
 
 ;; gnus-compat.el ends here

-----------------------------------------------------------------------
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             |    3 +++
 lisp/gnus-compat.el        |   12 ++++++++++++
 lisp/gnus-notifications.el |    3 +++
 3 files changed, 18 insertions(+)

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