*** empty log message ***

[gnus] / lisp / gnus-cus.el

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index eaa52b5..24c080c 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -18,8 +18,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:
 
@@ -28,6 +29,7 @@
 (require 'custom)
 (require 'gnus-ems)
 (require 'browse-url)
+(eval-when-compile (require 'cl))
 
 ;; The following is just helper functions and data, not ment to be set
 ;; by the user.
@@ -50,7 +52,7 @@
 (custom-declare '()
   '((tag . "GNUS")
     (doc . "\
-The coffe-brewing, all singing, all dancing, kitchen sink newsreader.")
+The coffee-brewing, all singing, all dancing, kitchen sink newsreader.")
     (type . group)
     (data ((tag . "Visual")
           (doc . "\
@@ -62,7 +64,7 @@ If `visual' is disabled, there will be no menus and few faces.  Most of
 the visual customization options below will be ignored.  GNUS will use
 less space and be faster as a result.")
                  (default . 
-                   (summary-highlight 
+                   (summary-highlight group-highlight
                     article-highlight 
                     summary-menu group-menu article-menu
                     tree-highlight menu highlight
@@ -75,7 +77,7 @@ less space and be faster as a result.")
 WWW Browser to call when clicking on an URL button in the article buffer.
 
 You can choose between one of the predefined browsers, or `Other'.")
-                 (name . gnus-button-url)
+                 (name . browse-url-browser-function)
                  (calculate . (cond ((boundp 'browse-url-browser-function)
                                      browse-url-browser-function)
                                     ((fboundp 'w3-fetch) 
@@ -88,7 +90,7 @@ You can choose between one of the predefined browsers, or `Other'.")
                         (default . w3-fetch))
                        ((tag . "Netscape")
                         (type . const)
-                        (default . gnus-netscape-open-url))
+                        (default . browse-url-netscape))
                        ((prompt . "Other")
                         (doc . "\
 You must specify the name of a Lisp function here.  The lisp function
@@ -132,7 +134,7 @@ single bold letter, while a letter followed by a backspace and an
 underscore will be displayed as a single underlined letter.  This
 technique was developed for old line printers (think about it), and is
 still in use on some newsgroups, in particular the ClariNet
-hierearchy.
+hierarchy.
 ")
                                      (type . const)
                                      (default . 
@@ -160,7 +162,7 @@ used for decoding and displaying the face.
                                      (default . gnus-article-display-x-face))
                                     ((tag . "Unquote Printable")
                                      (doc . "\
-Tranform MIME quoted printable into 8-bit characters.
+Transform MIME quoted printable into 8-bit characters.
 
 Quoted printable is often seen by strings like `=EF' where you would
 expect a non-English letter.
@@ -207,7 +209,7 @@ Highlight headers, signature, and buttons.
                                      (default . gnus-article-highlight-some))
                                     ((tag . "Highlight Headers")
                                      (doc . "\
-Highlight headers as specified by `Article Header Highligting'.
+Highlight headers as specified by `Article Header Highlighting'.
 ")
                                      (type . const)
                                      (default .
@@ -430,7 +432,7 @@ Face used for highlighting the current article in the summary buffer.")
                  (type . face))
                 ((tag . "Summary Line Highlighting")
                  (doc . "\
-Controls the higlighting of summary buffer lines. 
+Controls the highlighting of summary buffer lines. 
 
 Below is a list of `Form'/`Face' pairs.  When deciding how a a
 particular summary line should be displayed, each form is
@@ -531,7 +533,7 @@ mark:    The article's mark.")
                 )))))
 
 (defun gnus-custom-import-cite-face-list (custom alist)
-  ;; Backward compatible groking of light and dark.
+  ;; Backward compatible grokking of light and dark.
   (cond ((eq alist 'light)
         (setq alist (mapcar 'gnus-make-face gnus-face-light-name-list)))
        ((eq alist 'dark)