[gnus git] branch master updated: =1= Fix Gcc processing on imap.

       via  64c46579a04638ff8abe0eec982568e023411e54 (commit)
      from  84d800cd31de3064f0ed39617d725709a2f8f42f (commit)


- Log -----------------------------------------------------------------
commit 64c46579a04638ff8abe0eec982568e023411e54
Author: Tassilo Horn <[email protected]>
Date:   Sun Feb 13 07:34:40 2011 -0600

    Fix Gcc processing on imap.
    
    * nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix
    Gcc processing on imap.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d36ba50..02248b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-13  Tassilo Horn  <[email protected]>  (tiny change)
+
+	* nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix
+	Gcc processing on imap.
+
 2011-02-13  Teodor Zlatanov  <[email protected]>
 
 	* imap.el: Remove file.  All the functionality is in nnimap.el.
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 94c8f82..be3f812 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -966,7 +966,8 @@ textual parts.")
       (nnimap-add-cr)
       (setq message (buffer-substring-no-properties (point-min) (point-max)))
       (with-current-buffer (nnimap-buffer)
-	(when (setq message (nnimap-process-quirk "OK Gimap " 'append message))
+	(when (setq message (or (nnimap-process-quirk "OK Gimap " 'append message)
+				message))
 	  ;; If we have this group open read-only, then unselect it
 	  ;; before appending to it.
 	  (when (equal (nnimap-examined nnimap-object) group)
@@ -994,7 +995,7 @@ textual parts.")
 
 (defun nnimap-process-quirk (greeting-match type data)
   (when (and (nnimap-greeting nnimap-object)
-	     (string-match "OK Gimap " (nnimap-greeting nnimap-object))
+	     (string-match greeting-match (nnimap-greeting nnimap-object))
 	     (eq type 'append)
 	     (string-match "\000" data))
     (let ((choice (gnus-multiple-choice

-----------------------------------------------------------------------
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 |    5 +++++
 lisp/nnimap.el |    5 +++--
 2 files changed, 8 insertions(+), 2 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