From 6573b041d072fcfacfc7b8e6ae810abeb2f361e7 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Sun, 13 Feb 2011 11:57:42 +0100 Subject: [PATCH] * nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix Gcc processing on imap. --- lisp/ChangeLog | 5 +++++ lisp/nnimap.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ed68f13..1e7b35e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-13 Tassilo Horn + + * nnimap.el (nnimap-request-accept-article, nnimap-process-quirk): Fix + Gcc processing on imap. + 2011-02-10 Stefan Monnier * message.el (message-bury): Don't pop up a new window when selected 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 -- 1.7.4