(nnimap-process-quirk): Renamed function to avoid collision.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 488e133..a49f3ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
        (nnimap-update-info): Clean up slightly.
        (nnimap-quirk): Add quirk for Gmail IMAP which bugs out on NUL
        characters.
+       (nnimap-process-quirk): Renamed function to avoid collision.
 
 2011-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 47a64c0..4ca7e7f 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -969,7 +969,7 @@ textual parts.")
       (nnimap-add-cr)
       (setq message (buffer-substring-no-properties (point-min) (point-max)))
       (with-current-buffer (nnimap-buffer)
-       (when (setq message (nnimap-quirk "OK Gimap " 'append message))
+       (when (setq message (nnimap-process-quirk "OK Gimap " 'append message))
          ;; If we have this group open read-only, then unselect it
          ;; before appending to it.
          (when (equal (nnimap-examined nnimap-object) group)
@@ -995,7 +995,7 @@ textual parts.")
                        (nnimap-find-article-by-message-id
                         group message-id))))))))))
 
-(defun nnimap-quirk (greeting-match type data)
+(defun nnimap-process-quirk (greeting-match type data)
   (when (and (nnimap-greeting nnimap-object)
             (string-match "OK Gimap " (nnimap-greeting nnimap-object))
             (eq type 'append)