diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-02-27 20:39:06 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-02-27 20:39:06 -0500 |
commit | c005b089d1997218cba5540d37be0a5dfc2c4e1c (patch) | |
tree | 1a1426bc3fa262545091c8109860b39c3452cf85 /lisp/gnus/mm-extern.el | |
parent | 2291d9ae888961ce7e4f22675244f535db54df56 (diff) | |
download | emacs-c005b089d1997218cba5540d37be0a5dfc2c4e1c.tar.gz |
* lisp/gnus/mm-extern.el: Use lexical-binding
Don't require 'cl'.
(mm-extern-anon-ftp): Remove unused var 'mode'.
Diffstat (limited to 'lisp/gnus/mm-extern.el')
-rw-r--r-- | lisp/gnus/mm-extern.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el index e2f8bd4af3f..fbae669ce94 100644 --- a/lisp/gnus/mm-extern.el +++ b/lisp/gnus/mm-extern.el @@ -1,4 +1,4 @@ -;;; mm-extern.el --- showing message/external-body +;;; mm-extern.el --- showing message/external-body -*- lexical-binding:t -*- ;; Copyright (C) 2000-2018 Free Software Foundation, Inc. @@ -24,8 +24,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) - (require 'mm-util) (require 'mm-decode) (require 'mm-url) @@ -33,13 +31,13 @@ (defvar gnus-article-mime-handles) (defvar mm-extern-function-alist - '((local-file . mm-extern-local-file) - (url . mm-extern-url) - (anon-ftp . mm-extern-anon-ftp) - (ftp . mm-extern-ftp) -;;; (tftp . mm-extern-tftp) - (mail-server . mm-extern-mail-server) -;;; (afs . mm-extern-afs)) + `((local-file . ,#'mm-extern-local-file) + (url . ,#'mm-extern-url) + (anon-ftp . ,#'mm-extern-anon-ftp) + (ftp . ,#'mm-extern-ftp) + ;; (tftp . ,#'mm-extern-tftp) + (mail-server . ,#'mm-extern-mail-server) + ;; (afs . ,#'mm-extern-afs)) )) (defvar mm-extern-anonymous "anonymous") @@ -72,7 +70,6 @@ (name (cdr (assq 'name params))) (site (cdr (assq 'site params))) (directory (cdr (assq 'directory params))) - (mode (cdr (assq 'mode params))) (path (concat "/" (or mm-extern-anonymous (read-string (format "ID for %s: " site))) "@" site ":" directory "/" name)) |