From 65a2e3ec838ca5e61952fc8fa0dce136607a2843 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 22 Sep 2010 21:34:09 +0200 Subject: [PATCH] (nnimap-parse-flags): Fix typo. --- lisp/ChangeLog | 1 + lisp/nnimap.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f920d679d..3aac51664 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -6,6 +6,7 @@ hand-parsing. (nnimap-flags-to-marks): Pass on permanent-flags. (nnimap-make-process-buffer): Record the server name. + (nnimap-parse-flags): Fix typo. * nnmail.el (nnmail-split-incoming): Take an optional junk-func parameter, and propagate this downwards. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index cef88fefc..e4320460e 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -844,7 +844,7 @@ not done by default on servers that doesn't support that command.") (push (list group info active) nnimap-current-infos)))) (defun nnimap-flags-to-marks (groups) - (let (data group totalp uidnext articles start-article mark) + (let (data group totalp uidnext articles start-article mark permanent-flags) (dolist (elem groups) (setq group (car elem) uidnext (nth 1 elem) @@ -881,7 +881,7 @@ not done by default on servers that doesn't support that command.") (forward-line 1) (setq end (point)) (goto-char start) - (setq permanent-forward + (setq permanent-flags (and (search-forward "PERMANENTFLAGS " (or end (point-min)) t) (read (current-buffer)))) -- 2.25.1