mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

mm-url.el (mm-url-package-name): Removed to ease third-party reuse.

Browse Source 
(mm-url-insert-file-contents): Don't set the package names.
This commit is contained in:
Lars Magne Ingebrigtsen 2011-04-12 14:16:41 +00:00 committed by Katsumi Yamaoka
parent 099c39a447
commit bf0ed58aa4
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mm-url.el (mm-url-package-name): Removed to ease third-party reuse.
(mm-url-insert-file-contents): Don't set the package names.
2011-04-11 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-registry.el (gnus-registry-action): Remove properties and

11
lisp/gnus/mm-url.el
View File

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