[gnus git] branch master updated: m0-9-76-g2ec37f6 =1= Silence the byte compiler

       via  2ec37f63143ecc8adf5054974df68062c5498e75 (commit)
      from  53195fc045a4fe12bf4593780b268850489ddf7d (commit)


- Log -----------------------------------------------------------------
commit 2ec37f63143ecc8adf5054974df68062c5498e75
Author: Katsumi Yamaoka <[email protected]>
Date:   Mon Mar 24 00:36:59 2014 +0000

    Silence the byte compiler
    
    * gnus-cloud.el (gnus-cloud-parse-version-1):
    Use plist-get rather than CL's getf.
    (gnus-activate-group, gnus-subscribe-group): Declare.
    * gnus-sum.el (gnus-mime-buttonize-attachments-in-header: Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf94a32..e3229e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-03-24  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-cloud.el (gnus-cloud-parse-version-1):
+	Use plist-get rather than CL's getf.
+	(gnus-activate-group, gnus-subscribe-group): Declare.
+
+	* gnus-sum.el (gnus-mime-buttonize-attachments-in-header: Declare.
+
 2014-03-14  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-toggle-header): Display header attachment
diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el
index 62a25d7..c47976b 100644
--- a/lisp/gnus-cloud.el
+++ b/lisp/gnus-cloud.el
@@ -125,7 +125,7 @@
 	(let ((spec (ignore-errors (read (current-buffer))))
 	      length)
 	  (when (and (consp spec)
-		     (memq (getf spec :type) '(:file :data :deleta)))
+		     (memq (plist-get spec :type) '(:file :data :deleta)))
 	    (setq length (plist-get spec :length))
 	    (push (append spec
 			  (list
@@ -229,6 +229,11 @@
 	      (string< old timestamp))
       timestamp)))
 
+(declare-function gnus-activate-group "gnus-start"
+		  (group &optional scan dont-check method dont-sub-check))
+(declare-function gnus-subscribe-group "gnus-start"
+		  (group &optional previous method))
+
 (defun gnus-cloud-ensure-cloud-group ()
   (let ((method (if (stringp gnus-cloud-method)
 		    (gnus-server-to-method gnus-cloud-method)
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index dca2a2c..090cbed 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9783,6 +9783,8 @@ If ARG is a negative number, turn header display off."
 (declare-function article-narrow-to-head "gnus-art" ())
 (declare-function gnus-article-hidden-text-p "gnus-art" (type))
 (declare-function gnus-delete-wash-type "gnus-art" (type))
+(declare-function gnus-mime-buttonize-attachments-in-header
+		  "gnus-art" (&optional interactive))
 
 (defun gnus-summary-toggle-header (&optional arg)
   "Show the headers if they are hidden, or hide them if they are shown.

-----------------------------------------------------------------------
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-cloud.el |    7 ++++++-
 lisp/gnus-sum.el   |    2 ++
 3 files changed, 16 insertions(+), 1 deletion(-)

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