(find-file-noselect): If after-find-file switches buffers,

[gnu-emacs] / lisp / goto-addr.el

diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el
index 975c0ee216e9c9539890bbe07f1872b352d0329e..89645ec08e9f2e2fd148f37b745512faef9d41b3 100644 (file)
--- a/lisp/goto-addr.el
+++ b/lisp/goto-addr.el
@@ -1,4 +1,5 @@
 ;;; goto-addr.el --- click to browse URL or to send to e-mail address
+
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
 ;; Author: Eric Ding <ericding@mit.edu>
@@ -19,8 +20,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -143,6 +145,7 @@ and `goto-address-fontify-p'."
 ;;; code to find and goto addresses; much of this has been blatantly
 ;;; snarfed from browse-url.el
 
+;;;###autoload
 (defun goto-address-at-mouse (event)
   "Send to the e-mail address or load the URL clicked with the mouse.
 Send mail to address at position of mouse click.  See documentation for
@@ -162,6 +165,7 @@ there, then load the URL at or before the position of the mouse click."
                (funcall browse-url-browser-function url)))
          (funcall goto-address-mail-method address))))))
 
+;;;###autoload
 (defun goto-address-at-point ()
   "Send to the e-mail address or load the URL at point.
 Send mail to address at point.  See documentation for