From bf0ed58aa450f3dc0b9701b066b46cdbfdd0513a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 12 Apr 2011 14:16:41 +0000 Subject: [PATCH] mm-url.el (mm-url-package-name): Removed to ease third-party reuse. (mm-url-insert-file-contents): Don't set the package names. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mm-url.el | 11 ----------- 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index d84c40305a3..fc45e85bbe8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-04-12 Lars Magne Ingebrigtsen + + * 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 * gnus-registry.el (gnus-registry-action): Remove properties and 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