aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaiki Ueno2011-07-01 11:07:32 +0900
committerDaiki Ueno2011-07-01 11:07:32 +0900
commit3e0b797f616aebf8df59e799261c5d917ef3c5bb (patch)
treeb0c9a7ca55e7e788442466d80fd8995f574c8145
parentcdf4d4551d9e2b91fb0127ba8162e94910f514bf (diff)
downloademacs-3e0b797f616aebf8df59e799261c5d917ef3c5bb.tar.gz
emacs-3e0b797f616aebf8df59e799261c5d917ef3c5bb.zip
Fix commit 2011-07-01T01:34:38Z!ueno@unixuser.org.
-rw-r--r--lisp/gnus/plstore.el5
1 files changed, 3 insertions, 2 deletions
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.")
143 143
144(defun plstore--init-from-buffer (plstore) 144(defun plstore--init-from-buffer (plstore)
145 (goto-char (point-min)) 145 (goto-char (point-min))
146 (when (looking-at ";;; public entries\n") 146 (when (looking-at ";;; public entries")
147 (forward-line) 147 (forward-line)
148 (plstore--set-alist plstore (read (point-marker))) 148 (plstore--set-alist plstore (read (point-marker)))
149 (forward-sexp) 149 (forward-sexp)
150 (forward-char) 150 (forward-char)
151 (when (looking-at ";;; secret entries\n") 151 (when (looking-at ";;; secret entries")
152 (forward-line) 152 (forward-line)
153 (plstore--set-encrypted-data plstore (read (point-marker)))) 153 (plstore--set-encrypted-data plstore (read (point-marker))))
154 (plstore--merge-secret plstore))) 154 (plstore--merge-secret plstore)))
@@ -372,6 +372,7 @@ If no one is selected, symmetric encryption will be performed. "
372 recipients) 372 recipients)
373 (if plstore-encrypt-to 373 (if plstore-encrypt-to
374 (epg-list-keys context recipients))))) 374 (epg-list-keys context recipients)))))
375 (goto-char (point-max))
375 (insert ";;; secret entries\n" (pp-to-string cipher)))) 376 (insert ";;; secret entries\n" (pp-to-string cipher))))
376 (save-buffer))) 377 (save-buffer)))
377 378