Commit 242354a2 authored by Trevor Murphy's avatar Trevor Murphy Committed by Katsumi Yamaoka
Browse files

lisp/gnus/nnimap.el Allow using the Google X-GM-LABELS, if present

parent dafb0ef8
2015-01-26 Trevor Murphy <>
* nnimap.el (nnimap-header-parameters): Refactor and request
X-GM-LABELS if it's been announced.
(nnimap-transform-headers): Gather and output GM-LABELS.
2015-01-26 Peder O. Klingenberg <>
* mm-decode.el (mm-display-part): Make non-string methods work.
......@@ -166,14 +166,21 @@ textual parts.")
(nnimap-find-process-buffer nntp-server-buffer))
(defun nnimap-header-parameters ()
(let (params)
(push "UID" params)
(push "RFC822.SIZE" params)
(when (nnimap-capability "X-GM-EXT-1")
(push "X-GM-LABELS" params))
(push "BODYSTRUCTURE" params)
(push (format
(if (nnimap-ver4-p)
(append '(Subject From Date Message-Id
References In-Reply-To Xref)
(format "%s" (nreverse params))))
(deffoo nnimap-retrieve-headers (articles &optional group server fetch-old)
(when group
......@@ -197,7 +204,7 @@ textual parts.")
(defun nnimap-transform-headers ()
(goto-char (point-min))
(let (article lines size string)
(let (article lines size string labels)
(block nil
(while (not (eobp))
(while (not (looking-at "\\* [0-9]+ FETCH"))
......@@ -232,6 +239,9 @@ textual parts.")
(match-string 1)))
(when (search-forward "X-GM-LABELS" (line-end-position) t)
(setq labels (ignore-errors (read (current-buffer)))))
(when (search-forward "BODYSTRUCTURE" (line-end-position) t)
(let ((structure (ignore-errors
(read (current-buffer)))))
......@@ -251,6 +261,8 @@ textual parts.")
(insert (format "Chars: %s\n" size)))
(when lines
(insert (format "Lines: %s\n" lines)))
(when labels
(insert (format "X-GM-LABELS: %s\n" labels)))
;; Most servers have a blank line after the headers, but
;; Davmail doesn't.
(unless (re-search-forward "^\r$\\|^)\r?$" nil t)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment