(canlock-password-for-verify): Ditto.
* deuglify.el (gnus-outlook-deuglify-unwrap-min): Ditto.
(gnus-outlook-deuglify-unwrap-max): Ditto.
(gnus-outlook-deuglify-unwrap-stop-chars): Ditto.
* gnus-sum.el (gnus-sum-thread-tree-root): Ditto.
(gnus-sum-thread-tree-false-root): Ditto.
(gnus-sum-thread-tree-single-indent): Ditto.
* message.el (message-archive-note): Ditto.
(message-subscribed-address-file): Ditto.
(message-user-fqdn): Ditto.
* gnus-start.el (gnus-save-killed-list): Fix last change.
* message.el (message-courtesy-message): Ditto.
+2003-08-07 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * canlock.el (canlock-password): Fix customization type.
+ (canlock-password-for-verify): Ditto.
+ * deuglify.el (gnus-outlook-deuglify-unwrap-min): Ditto.
+ (gnus-outlook-deuglify-unwrap-max): Ditto.
+ (gnus-outlook-deuglify-unwrap-stop-chars): Ditto.
+ * gnus-sum.el (gnus-sum-thread-tree-root): Ditto.
+ (gnus-sum-thread-tree-false-root): Ditto.
+ (gnus-sum-thread-tree-single-indent): Ditto.
+ * message.el (message-archive-note): Ditto.
+ (message-subscribed-address-file): Ditto.
+ (message-user-fqdn): Ditto.
+
+ * gnus-start.el (gnus-save-killed-list): Fix last change.
+ * message.el (message-courtesy-message): Ditto.
+
2003-08-07 Jesper Harder <harder@ifa.au.dk>
* gnus-art.el (gnus-header-face-alist): Revert previous change.
(defcustom canlock-password nil
"Password to use when signing a Cancel-Lock or a Cancel-Key header."
- :type 'string
+ :type '(radio (const :format "Not specified " nil)
+ (string :tag "Password" :size 0))
:group 'canlock)
(defcustom canlock-password-for-verify canlock-password
"Password to use when verifying a Cancel-Lock or a Cancel-Key header."
- :type 'string
+ :type '(radio (const :format "Not specified " nil)
+ (string :tag "Password" :size 0))
:group 'canlock)
(defcustom canlock-force-insert-header nil
;;;###autoload
(defcustom gnus-outlook-deuglify-unwrap-min 45
"Minimum length of the cited line above the (possibly) wrapped line."
- :type 'number
+ :type 'integer
:group 'gnus-outlook-deuglify)
;;;###autoload
(defcustom gnus-outlook-deuglify-unwrap-max 95
"Maximum length of the cited line after unwrapping."
- :type 'number
+ :type 'integer
:group 'gnus-outlook-deuglify)
(defcustom gnus-outlook-deuglify-cite-marks ">|#%"
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil
"Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line."
- :type 'string
+ :type '(radio (const :format "None " nil)
+ (string :size 0 :value ".?!"))
:group 'gnus-outlook-deuglify)
(defcustom gnus-outlook-deuglify-no-wrap-chars "`"
(and value (not (stringp value))))
:value t)
(const nil)
- (regexp :size 0)))
+ (regexp :format "%t: %v\n" :size 0)))
(defcustom gnus-ignored-newsgroups
(mapconcat 'identity
(defcustom gnus-sum-thread-tree-root "> "
"With %B spec, used for the root of a thread.
If nil, use subject instead."
- :type 'string
+ :type '(radio (const :format "%v " nil) (string :size 0))
:group 'gnus-thread)
(defcustom gnus-sum-thread-tree-false-root "> "
"With %B spec, used for a false root of a thread.
If nil, use subject instead."
- :type 'string
+ :type '(radio (const :format "%v " nil) (string :size 0))
:group 'gnus-thread)
(defcustom gnus-sum-thread-tree-single-indent ""
"With %B spec, used for a thread with just one message.
If nil, use subject instead."
- :type 'string
+ :type '(radio (const :format "%v " nil) (string :size 0))
:group 'gnus-thread)
(defcustom gnus-sum-thread-tree-vertical "| "
"With %B spec, used for drawing a vertical line."
the article has been posted to will be inserted there.
If this variable is nil, no such courtesy message will be added."
:group 'message-sending
- :type '(radio (const nil) (string :size 0)))
+ :type '(radio (string :format "%t: %v\n" :size 0) (const nil)))
(defcustom message-ignored-bounced-headers
"^\\(Received\\|Return-Path\\|Delivered-To\\):"
"X-No-Archive: Yes - save http://groups.google.com/"
"Note to insert why you wouldn't want this posting archived.
If nil, don't insert any text in the body."
- :type 'string
+ :type '(radio (string :format "%t: %v\n" :size 0)
+ (const nil))
:group 'message-various)
;;; Crossposts and Followups
If nil, do not look at any files to determine list subscriptions. If
non-nil, each line of this file should be a mailing list address."
:group 'message-interface
- :type 'string)
+ :type '(radio (file :format "%t: %v\n" :size 0)
+ (const nil)))
(defcustom message-subscribed-addresses nil
"*Specifies a list of addresses the user is subscribed to.
"*Domain part of Messsage-Ids."
:group 'message-headers
:link '(custom-manual "(message)News Headers")
- :type 'string)
+ :type '(radio (const :format "%v " nil)
+ (string :format "FQDN: %v\n" :size 0)))
(defcustom message-use-idna (and (condition-case nil (require 'idna)
(file-error))