diff options
| author | Sam Steingold <sds@gnu.org> | 2020-01-30 11:27:55 -0500 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2020-01-30 11:28:30 -0500 |
| commit | 38b6ed1edc9978d3fb7ecd5df2afa81c6064f3c9 (patch) | |
| tree | 6b84462a96ca304631bc16138c85dbb55d1dba9d /lisp/gnus/mml1991.el | |
| parent | 1ed7cd41dba444da0b66427eb48852e896ca3742 (diff) | |
| download | emacs-38b6ed1edc9978d3fb7ecd5df2afa81c6064f3c9.tar.gz | |
prune the overly cavalier "kill all gnus buffers exit"
* lisp/gnus/mail-source.el (mail-source-call-script): Require gnus for
`gnus-get-buffer-create', following the pattern in the file.
* lisp/gnus/message.el: Autoload `gnus-get-buffer-create'.
* lisp/gnus/mm-archive.el: Likewise.
* lisp/gnus/mml2015.el: Likewise (the file autoloads other gnus functions).
* lisp/gnus/nnheader.el: Likewise.
* lisp/gnus/mml1991.el (mml1991-mailcrypt-sign, mml1991-mailcrypt-encrypt):
Revert the patch, use `get-buffer-create' instead of `gnus-get-buffer-create'.
* lisp/gnus/smime.el (smime-new-details-buffer, smime):
smime-certificate-info): Likewise.
* lisp/gnus/spam-stat.el (spam-stat-store-current-buffer): Likewise.
Diffstat (limited to 'lisp/gnus/mml1991.el')
| -rw-r--r-- | lisp/gnus/mml1991.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el index c777053dcd5..8be1b84e52f 100644 --- a/lisp/gnus/mml1991.el +++ b/lisp/gnus/mml1991.el @@ -85,7 +85,7 @@ Whether the passphrase is cached at all is controlled by (defun mml1991-mailcrypt-sign (cont) (let ((text (current-buffer)) headers signature - (result-buffer (gnus-get-buffer-create "*GPG Result*"))) + (result-buffer (get-buffer-create "*GPG Result*"))) ;; Save MIME Content[^ ]+: headers from signing (goto-char (point-min)) (while (looking-at "^Content[^ ]+:") (forward-line)) @@ -130,7 +130,7 @@ Whether the passphrase is cached at all is controlled by 'not)))) 'never)) cipher - (result-buffer (gnus-get-buffer-create "*GPG Result*"))) + (result-buffer (get-buffer-create "*GPG Result*"))) ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMORED (goto-char (point-min)) (while (looking-at "^Content[^ ]+:") (forward-line)) |