From 32544aa4133c3446f0b83e5b58a5ad7213534c55 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Fri, 28 Mar 2014 19:02:02 -0400
Subject: [PATCH] * lisp/url/url-vars.el (url-bug-address): Make into an
 obsolete alias.

* lisp/urlurl-http.el (url-http-handle-authentication):
* lisp/url/url-news.el (url-news-fetch-message-id):
Use M-x report-emacs-bug in help messages.
---
 lisp/url/ChangeLog   | 7 +++++++
 lisp/url/url-http.el | 2 +-
 lisp/url/url-news.el | 3 +--
 lisp/url/url-vars.el | 7 +++----
 4 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index cb37b4511bd..bb7025bf6ae 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,10 @@
+2014-03-28  Glenn Morris  <rgm@gnu.org>
+
+	* url-vars.el (url-bug-address): Make into an obsolete alias.
+	* url-http.el (url-http-handle-authentication):
+	* url-news.el (url-news-fetch-message-id):
+	Use M-x report-emacs-bug in help messages.
+
 2014-03-26  Juanma Barranquero  <lekktu@gmail.com>
 
 	* url-handlers.el (url-http-parse-response): Add autoload.
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index ac2e1403d03..85ced1106fe 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -414,7 +414,7 @@ Return the number of characters removed."
 	  (goto-char (point-max))
 	  (insert "<hr>Sorry, but I do not know how to handle " type
 		  " authentication.  If you'd like to write it,"
-		  " send it to " url-bug-address ".<hr>")
+		  " please use M-x report-emacs-bug RET.<hr>")
           ;; We used to set a `status' var (declared "special") but I can't
           ;; find the corresponding let-binding, so it's probably an error.
           ;; FIXME: Maybe it was supposed to set `success', i.e. to return t?
diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el
index 105fb677374..0ce6d2e6cd1 100644
--- a/lisp/url/url-news.el
+++ b/lisp/url/url-news.el
@@ -70,8 +70,7 @@
 		"    </xmp>\n"
 		"   </p>\n"
 		"   <p>\n"
-		"    If you If you feel this is an error, <a href=\""
-		"mailto:" url-bug-address "\">send mail</a>\n"
+		"    If you feel this is an error, M-x report-emacs-bug RET.\n"
 		"   </p>\n"
 		"  </div>\n"
 		" </body>\n"
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 4cdb59deb27..62b7b855533 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -1,7 +1,6 @@
 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
 
-;; Copyright (C) 1996-1999, 2001, 2004-2014 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1996-1999, 2001, 2004-2014 Free Software Foundation, Inc.
 
 ;; Keywords: comm, data, processes, hypermedia
 
@@ -82,8 +81,8 @@ If non-nil and not t, the user will be asked for each refresh request."
   :type 'boolean
   :group 'url-cache)
 
-(defconst url-bug-address "bug-gnu-emacs@gnu.org"
-  "Where to send bug reports.")
+(define-obsolete-variable-alias 'url-bug-address
+  'report-emacs-bug-address "24.5")
 
 (defcustom url-personal-mail-address nil
   "Your full email address.
-- 
2.39.5