[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/27 03:42:09

Modified files:
        lisp/mail      : rmailsum.el 

Log message:
        Remove leading `*' from defcustom docs.
        Remove needless autoloads of many defcustoms.
        (rmail-message-regexp-p-1): Check rmail-search-mime-header-function is 
set.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.158&r2=1.159

Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -b -r1.158 -r1.159
--- rmailsum.el 27 Jan 2009 03:15:52 -0000      1.158
+++ rmailsum.el 27 Jan 2009 03:42:08 -0000      1.159
@@ -34,15 +34,13 @@
 ;; For rmail-select-summary
 (require 'rmail)
 
-;;;###autoload
 (defcustom rmail-summary-scroll-between-messages t
-  "*Non-nil means Rmail summary scroll commands move between messages."
+  "Non-nil means Rmail summary scroll commands move between messages."
   :type 'boolean
   :group 'rmail-summary)
 
-;;;###autoload
 (defcustom rmail-summary-line-count-flag t
-  "*Non-nil means Rmail summary should show the number of lines in each 
message."
+  "Non-nil means Rmail summary should show the number of lines in each 
message."
   :type 'boolean
   :group 'rmail-summary)
 
@@ -142,7 +140,9 @@
 (defun rmail-message-regexp-p-1 (msg regexp)
   (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point)))
   (if rmail-enable-mime
+      (if rmail-search-mime-header-function
       (funcall rmail-search-mime-header-function msg regexp (point))
+       (error "You must set `rmail-search-mime-header-function'"))
     (re-search-forward regexp nil t)))
 
 ;;;###autoload
@@ -342,9 +342,8 @@
       (aset rmail-summary-vector (1- msgnum) line))
     line))
 
-;;;###autoload
 (defcustom rmail-summary-line-decoder (function identity)
-  "*Function to decode a Rmail summary line.
+  "Function to decode a Rmail summary line.
 It receives the summary line for one message as a string
 and should return the decoded string.
 
@@ -439,9 +438,10 @@
             (concat prefix basic-start linecount-string " "
                     labels basic-end))))
 
+;; FIXME move to rmail.el?
 ;;;###autoload
 (defcustom rmail-user-mail-address-regexp nil
-  "*Regexp matching user mail addresses.
+  "Regexp matching user mail addresses.
 If non-nil, this variable is used to identify the correspondent
 when receiving new mail.  If it matches the address of the sender,
 the recipient is taken as correspondent of a mail.