diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-08-06 03:56:51 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-08-06 03:56:51 -0400 |
| commit | 74b097b61c5201405ad7bc5bb76f1ca0e794184b (patch) | |
| tree | 9e616fd95c5cb01c7dac507c6d84a34637f14411 /lisp/mh-e/mh-identity.el | |
| parent | b06917a4912a60402025286d07d4a195749245c4 (diff) | |
| download | emacs-74b097b61c5201405ad7bc5bb76f1ca0e794184b.tar.gz | |
* lisp/mh-e: Use cl-lib
Also, use underscore prefixes and defvar in preparation for lexical binding
* lisp/mh-e/mh-acros.el: Require cl-lib instead of cl.
Rename all cl.el uses by adding `cl-` prefix.
(mh-require-cl): Remove. Not needed any more. Remove all calls.
(mh-defstruct): Remove. Replace all uses with cl-defstruct.
(mh-dlet*): New macro.
* lisp/mh-e/mh-comp.el (mh-user-agent-compose): Fold all ignored
optional args into the &rest arg.
* lisp/mh-e/mh-e.el: Require cl-lib instead of using mh-require-cl.
(mh-variants): Don't add-to-list on a local var.
* lisp/mh-e/mh-folder.el (mh-restore-desktop-buffer): Use shorter arg
names that don't collide with global vars.
* lisp/mh-e/mh-mime.el (mh-insert-mime-button):
(mh-insert-mime-security-button): Use mh-dlet*.
* lisp/mh-e/mh-search.el (mh-swish-next-result, mh-grep-next-result)
(mh-namazu-next-result): Use `or`.
* lisp/mh-e/mh-thread.el (mh-thread-generate)
(mh-thread-prune-containers): Use underscore rather than declare+ignore.
* lisp/mh-e/mh-tool-bar.el (mh-tool-bar-define): Use mh-dlet*.
(mh-tool-bar-define): Prefer the more precise \`...\' regexp ops.
Prefer Elisp's `eval-and-compile` over `cl-eval-when`.
* lisp/mh-e/mh-xface.el (mh-picon-get-image): Don't use
mh-funcall-if-exists for ietf-drums-parse-address.
Avoid the use of `cl-return` and hence use plain `defun`.
Replace some `cl-loop` with `dolist`.
Diffstat (limited to 'lisp/mh-e/mh-identity.el')
| -rw-r--r-- | lisp/mh-e/mh-identity.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index 1d929e8f990..0b698395756 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -205,7 +205,7 @@ See `mh-identity-list'." (setq mh-identity-local identity)))) ;;;###mh-autoload -(defun mh-identity-handler-gpg-identity (field action &optional value) +(defun mh-identity-handler-gpg-identity (_field action &optional value) "Process header FIELD \":pgg-default-user-id\". The ACTION is one of `remove' or `add'. If `add', the VALUE is added. The buffer-local variable `mh-identity-pgg-default-user-id' is set to @@ -219,7 +219,7 @@ VALUE when action `add' is selected." (setq mh-identity-pgg-default-user-id value)))) ;;;###mh-autoload -(defun mh-identity-handler-signature (field action &optional value) +(defun mh-identity-handler-signature (_field action &optional value) "Process header FIELD \":signature\". The ACTION is one of `remove' or `add'. If `add', the VALUE is added." @@ -250,7 +250,7 @@ added." "Marker for the end of the attribution verb.") ;;;###mh-autoload -(defun mh-identity-handler-attribution-verb (field action &optional value) +(defun mh-identity-handler-attribution-verb (_field action &optional value) "Process header FIELD \":attribution-verb\". The ACTION is one of `remove' or `add'. If `add', the VALUE is added." |