Mercurial > emacs
changeset 104384:9a190dac8f18
(rmail-obsolete): Delete custom group.
(rmail-pop-password, rmail-pop-password-required): Make into aliases.
(rmail-remote-password, rmail-remote-password-required):
Remove unneeded :set-after and :set properties.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 21 Aug 2009 07:02:28 +0000 |
| parents | d7e1177ef007 |
| children | bc2e79adb401 |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 12 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Aug 21 06:45:22 2009 +0000 +++ b/lisp/ChangeLog Fri Aug 21 07:02:28 2009 +0000 @@ -1,3 +1,10 @@ +2009-08-21 Glenn Morris <rgm@gnu.org> + + * mail/rmail.el (rmail-obsolete): Delete custom group. + (rmail-pop-password, rmail-pop-password-required): Make into aliases. + (rmail-remote-password, rmail-remote-password-required): + Remove unneeded :set-after and :set properties. + 2009-08-21 Michael Albinus <michael.albinus@gmx.de> * net/dbus.el (top): Initialize only when `dbusbind' is loaded.
--- a/lisp/mail/rmail.el Fri Aug 21 06:45:22 2009 +0000 +++ b/lisp/mail/rmail.el Fri Aug 21 07:02:28 2009 +0000 @@ -139,57 +139,28 @@ :prefix "rmail-edit-" :group 'rmail) -(defgroup rmail-obsolete nil - "Rmail obsolete customization variables." - :group 'rmail) - (defcustom rmail-movemail-program nil "If non-nil, the file name of the `movemail' program." :group 'rmail-retrieve :type '(choice (const nil) string)) -(defcustom rmail-pop-password nil - "Password to use when reading mail from POP server. -Please use `rmail-remote-password' instead." - :type '(choice (string :tag "Password") - (const :tag "Not Required" nil)) - :group 'rmail-obsolete) - -(defcustom rmail-pop-password-required nil - "Non-nil if a password is required when reading mail from a POP server. -Please use rmail-remote-password-required instead." - :type 'boolean - :group 'rmail-obsolete) +(define-obsolete-variable-alias 'rmail-pop-password + 'rmail-remote-password "22.1") (defcustom rmail-remote-password nil "Password to use when reading mail from a remote server. This setting is ignored for mailboxes whose URL already contains a password." :type '(choice (string :tag "Password") (const :tag "Not Required" nil)) - :set-after '(rmail-pop-password) - :set #'(lambda (symbol value) - (set-default symbol - (if (and (not value) - (boundp 'rmail-pop-password) - rmail-pop-password) - rmail-pop-password - value)) - (setq rmail-pop-password nil)) :group 'rmail-retrieve :version "22.1") +(define-obsolete-variable-alias 'rmail-pop-password-required + 'rmail-remote-password-required "22.1") + (defcustom rmail-remote-password-required nil "Non-nil if a password is required when reading mail from a remote server." :type 'boolean - :set-after '(rmail-pop-password-required) - :set #'(lambda (symbol value) - (set-default symbol - (if (and (not value) - (boundp 'rmail-pop-password-required) - rmail-pop-password-required) - rmail-pop-password-required - value)) - (setq rmail-pop-password-required nil)) :group 'rmail-retrieve :version "22.1")