From 2ba47bce6d2380b7d6355996e589dbe0134b7920 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 30 Sep 2010 18:17:47 +0200 Subject: [PATCH] Get the Message-ID without the \r. --- lisp/ChangeLog | 5 +++++ lisp/nnimap.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b936ea100..822ea8094 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-30 Lars Magne Ingebrigtsen + + * nnimap.el (nnimap-request-accept-article): Get the Message-ID without + the \r. + 2010-09-30 Julien Danjou * gnus-agent.el (gnus-agent-add-group): Fix call to diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 1dd561ab6..456189db7 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -796,10 +796,10 @@ textual parts.") (deffoo nnimap-request-accept-article (group &optional server last) (when (nnimap-possibly-change-group nil server) (nnmail-check-syntax) - (nnimap-add-cr) - (let ((message (buffer-string)) - (message-id (message-field-value "message-id")) - sequence) + (let ((message-id (message-field-value "message-id")) + sequence message) + (nnimap-add-cr) + (setq message (buffer-string)) (with-current-buffer (nnimap-buffer) (setq sequence (nnimap-send-command "APPEND %S {%d}" (utf7-encode group t) -- 2.25.1