mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/mm-extern.el: Use lexical-binding

Browse source 
Don't require 'cl'.
(mm-extern-anon-ftp): Remove unused var 'mode'.
This commit is contained in:
Stefan Monnier 2018-02-27 20:39:06 -05:00
parent 2291d9ae88
commit c005b089d1
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/gnus/mm-extern.el
View file

@ -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))