diff options
| author | Daiki Ueno | 2011-07-01 11:07:32 +0900 |
|---|---|---|
| committer | Daiki Ueno | 2011-07-01 11:07:32 +0900 |
| commit | 3e0b797f616aebf8df59e799261c5d917ef3c5bb (patch) | |
| tree | b0c9a7ca55e7e788442466d80fd8995f574c8145 | |
| parent | cdf4d4551d9e2b91fb0127ba8162e94910f514bf (diff) | |
| download | emacs-3e0b797f616aebf8df59e799261c5d917ef3c5bb.tar.gz emacs-3e0b797f616aebf8df59e799261c5d917ef3c5bb.zip | |
Fix commit 2011-07-01T01:34:38Z!ueno@unixuser.org.
| -rw-r--r-- | lisp/gnus/plstore.el | 5 |
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 | ||