changeset 101537:d15ac066761b

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

--- a/lisp/mail/rmailsum.el	Tue Jan 27 03:41:25 2009 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jan 27 03:42:08 2009 +0000
@@ -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
-      (funcall rmail-search-mime-header-function msg regexp (point))
+      (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
@@ -318,7 +318,7 @@
   (if (and rmail-summary-buffer (buffer-name rmail-summary-buffer))
       rmail-summary-buffer
     (generate-new-buffer (concat (buffer-name) "-summary"))))
-	    
+
 
 ;; Low levels of generating a summary.
 
@@ -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.