[Emacs-diffs] /srv/bzr/emacs/trunk r104999: * mail/smtpmail.el (smtpmail-default-smtp-server): Made into a defcustom again for backwards compatibility.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104999
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2011-07-06 23:34:13 +0200
message:
  * mail/smtpmail.el (smtpmail-default-smtp-server): Made into a defcustom 
again for backwards compatibility.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-06 19:44:09 +0000
+++ b/lisp/ChangeLog    2011-07-06 21:34:13 +0000
@@ -1,5 +1,8 @@
 2011-07-06  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * mail/smtpmail.el (smtpmail-default-smtp-server): Made into a
+       defcustom again for backwards compatibility.
+
        * simple.el (shell-command-on-region): Fill.
 
        * dired-aux.el (dired-kill-line): Add a doc string.

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-06-28 15:30:45 +0000
+++ b/lisp/mail/smtpmail.el     2011-07-06 21:34:13 +0000
@@ -71,9 +71,11 @@
   :group 'mail)
 
 
-(defvar smtpmail-default-smtp-server nil
+(defcustom smtpmail-default-smtp-server nil
   "Specify default SMTP server.
-This only has effect if you specify it before loading the smtpmail library.")
+This only has effect if you specify it before loading the smtpmail library."
+  :type '(choice (const nil) string)
+  :group 'smtpmail)
 
 (defcustom smtpmail-smtp-server
   (or (getenv "SMTPSERVER") smtpmail-default-smtp-server)