diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-04-12 14:16:41 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-04-12 14:16:41 +0000 |
| commit | bf0ed58aa450f3dc0b9701b066b46cdbfdd0513a (patch) | |
| tree | a7a4f39a239fb7e5d3bf28802e9ba208836fa268 /lisp/gnus/mm-url.el | |
| parent | 099c39a447af30fb0e1b1f15adc57934228eb972 (diff) | |
| download | emacs-bf0ed58aa450f3dc0b9701b066b46cdbfdd0513a.tar.gz | |
mm-url.el (mm-url-package-name): Removed to ease third-party reuse.
(mm-url-insert-file-contents): Don't set the package names.
Diffstat (limited to 'lisp/gnus/mm-url.el')
| -rw-r--r-- | lisp/gnus/mm-url.el | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el index 498d0612519..2ce3791ef3d 100644 --- a/lisp/gnus/mm-url.el +++ b/lisp/gnus/mm-url.el @@ -83,13 +83,6 @@ Likely values are `wget', `w3m', `lynx' and `curl'." ;;; Internal variables -(defvar mm-url-package-name - (gnus-replace-in-string - (gnus-replace-in-string gnus-version " v.*$" "") - " " "-")) - -(defvar mm-url-package-version gnus-version-number) - ;; Stolen from w3. (defvar mm-url-html-entities '( @@ -298,10 +291,6 @@ If `mm-url-use-external' is non-nil, use `mm-url-program'." (if (not (and (boundp 'url-version) (equal url-version "Emacs"))) (list (cons "Connection" "Close")))) - (url-package-name (or mm-url-package-name - url-package-name)) - (url-package-version (or mm-url-package-version - url-package-version)) result) (setq result (url-insert-file-contents url)) (save-excursion |