diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-22 21:40:24 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-22 21:40:24 -0700 |
| commit | dfea6d5a4aac5fd1679a917c5e84ce17a6c6a3d8 (patch) | |
| tree | a45928650165acb6e449df72755875da993a7492 /lisp/gnus/mml-sec.el | |
| parent | 97b7e58c4d34722e8b0eb73b3ed315fdc9671264 (diff) | |
| download | emacs-dfea6d5a4aac5fd1679a917c5e84ce17a6c6a3d8.tar.gz emacs-dfea6d5a4aac5fd1679a917c5e84ce17a6c6a3d8.tar.bz2 emacs-dfea6d5a4aac5fd1679a917c5e84ce17a6c6a3d8.zip | |
Quieten cl-lib related compiler warnings
* lisp/completion.el (cl-set-difference):
* lisp/files.el (map-merge-with, map-merge):
* lisp/emacs-lisp/radix-tree.el (map-apply): Declare.
* lisp/emacs-lisp/thunk.el: Load cl-lib at run-time, not
cl-macs at compile.
* lisp/gnus/gnus-group.el: Load cl-lib at run-time, not cl at compile.
* lisp/emacs-lisp/checkdoc.el, lisp/emacs-lisp/package.el
* lisp/gnus/gnus-sum.el, lisp/gnus/message.el, lisp/net/shr.el:
Load cl-lib at run-time.
* lisp/gnus/mml-sec.el (mml-signencrypt-style)
(mml-secure-cust-record-keys): Replace cl with cl-lib,
and load it at run-time.
* lisp/cedet/ede/linux.el, lisp/vc/vc-hg.el: Reorder requires.
Diffstat (limited to 'lisp/gnus/mml-sec.el')
| -rw-r--r-- | lisp/gnus/mml-sec.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index dc10763da86..9a64853edf6 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el @@ -23,7 +23,7 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(require 'cl-lib) (require 'gnus-util) (require 'epg) @@ -167,9 +167,9 @@ You can also customize or set `mml-signencrypt-style-alist' instead." (if (or (eq style 'separate) (eq style 'combined)) ;; valid style setting? - (setf (second style-item) style) + (setf (cadr style-item) style) ;; otherwise, just return the current value - (second style-item)) + (cadr style-item)) (message "Warning, attempt to set invalid signencrypt style")))) ;;; Security functions @@ -554,7 +554,7 @@ customized in this variable." "For CONTEXT, USAGE, and NAME record fingerprint(s) of KEYS. If optional SAVE is not nil, save customized fingerprints. Return keys." - (assert keys) + (cl-assert keys) (let* ((usage-prefs (mml-secure-cust-usage-lookup context usage)) (curr-fprs (cdr (assoc name (cdr usage-prefs)))) (key-fprs (mapcar 'mml-secure-fingerprint keys)) |