From: Daiki Ueno Date: Fri, 1 Jul 2011 02:07:32 +0000 (+0900) Subject: Fix commit 2011-07-01T01:34:38Z!ueno@unixuser.org. X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~287^2~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e0b797f616aebf8df59e799261c5d917ef3c5bb;p=emacs.git Fix commit 2011-07-01T01:34:38Z!ueno@unixuser.org. --- diff --git a/lisp/gnus/plstore.el b/lisp/gnus/plstore.el index 8111c4c226e..360388d002e 100644 --- a/lisp/gnus/plstore.el +++ b/lisp/gnus/plstore.el @@ -143,12 +143,12 @@ May either be a string or a list of strings.") (defun plstore--init-from-buffer (plstore) (goto-char (point-min)) - (when (looking-at ";;; public entries\n") + (when (looking-at ";;; public entries") (forward-line) (plstore--set-alist plstore (read (point-marker))) (forward-sexp) (forward-char) - (when (looking-at ";;; secret entries\n") + (when (looking-at ";;; secret entries") (forward-line) (plstore--set-encrypted-data plstore (read (point-marker)))) (plstore--merge-secret plstore))) @@ -372,6 +372,7 @@ If no one is selected, symmetric encryption will be performed. " recipients) (if plstore-encrypt-to (epg-list-keys context recipients))))) + (goto-char (point-max)) (insert ";;; secret entries\n" (pp-to-string cipher)))) (save-buffer)))