🚀 go-pugleaf

�ҿ��˿�emacs��info�����������(load "foo")
���ҵ�.emacs������smtp����֮ǰ������һ��(load "smtpmail")
֮������emacs�Ĺ���п�������ʾloading smtpmail...
Ӧ���Ǽ��سɹ��˰ɣ�
���Ƿ��ŵ�ʱ�򣬻��Dz��ɹ�����ʾ���ǣ�
wrong type argument: stringp. nil
���Ӻ������ҵ�smtpmail.el���ļ�ͷ��

>
> �������������(load 'smtpmail)֮�����䣬�������ľ仹����ϸ����
> smtpmail.el�ļ����ļ�ͷ�ɡ���
-send-it)
>
> ����Ϳ�������Ϊsmtpmail.elû��������ɵģ�
> ���ˣ�����������.emacs��.gnus�ļ������á�����ȴû�з�������ȷҪ���
> ��smtpmail.el����⡣�����������˻���������Emacs�Dz����Լ�ȥ����
> smtpmail.el�ģ�

;ELC
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:05 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/smtpmail.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
  (< (aref emacs-version (1- (length emacs-version))) ?A)
  (or (and (boundp 'epoch::version) epoch::version)
      (string-lessp emacs-version "19.29")))
    (error "`smtpmail.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207"
[require sendmail time-stamp custom-declare-group smtpmail nil "SMTP
protocol for sending mail." :group mail] 6)
#@31 *Specify default SMTP server.
(custom-declare-variable 'smtpmail-default-smtp-server 'nil '(#$ . -805)
:type '(choice (const nil) string) :group 'smtpmail)
#@44 *The name of the host running SMTP server.
(custom-declare-variable 'smtpmail-smtp-server '(or (getenv "SMTPSERVER")
smtpmail-default-smtp-server) '(#$ . -967) :type '(choice (const nil)
string) :group 'smtpmail)
#@41 *SMTP service port number. smtp or 25 .
(custom-declare-variable 'smtpmail-smtp-service '25 '(#$ . -1186) :type
'integer :group 'smtpmail)
#@131 *Local domain name without a host name.
If the function (system-name) returns the full internet address,
don't define this value.
(custom-declare-variable 'smtpmail-local-domain 'nil '(#$ . -1332) :type
'(choice (const nil) string) :group 'smtpmail)
#@507 *Local domain name without a host name.
This is appended (with an @-sign) to any specified recipients which do
not include an @-sign, so that each RCPT TO address is fully qualified.
(Some configurations of sendmail require this.)

Don't bother to set this unless you have get an error like:
 Sending failed; SMTP protocol error
when sending mail, and the *trace of SMTP session to <somewhere>*
buffer includes an exchange like:
 RCPT TO: <someone>
 501 <someone>: recipient address must contain a domain

(custom-declare-variable 'smtpmail-sendto-domain 'nil '(#$ . -1589) :type
'(choice (const nil) string) :group 'smtpmail)
#@61 *smtpmail debug info printout. messages and process buffer.
(custom-declare-variable 'smtpmail-debug-info 'nil '(#$ . -2222) :type
'boolean :group 'smtpmail)
#@70 *smtpmail code convert from this code to *internal*..for tiny-mime..
(custom-declare-variable 'smtpmail-code-conv-from 'nil '(#$ . -2386) :type
'boolean :group 'smtpmail)
#@170 *Specify if mail is queued (if t) or sent immediately (if nil).
If queued, it is stored in the directory `smtpmail-queue-dir'
and sent with `smtpmail-send-queued-mail'.
(custom-declare-variable 'smtpmail-queue-mail 'nil '(#$ . -2564) :type
'boolean :group 'smtpmail)
#@52 *Directory where `smtpmail.el' stores queued mail.
(custom-declare-variable 'smtpmail-queue-dir '"~/Mail/queued-mail/" '(#$
. -2837) :type 'directory :group 'smtpmail)
#@172 *If set, print warnings about unknown SMTP extensions.
This is mainly useful for development purposes, to learn about
new SMTP extensions that might be useful to support.
(custom-declare-variable 'smtpmail-warn-about-unknown-extensions 'nil '(#$
. -3012) :type 'boolean :version "21.1" :group 'smtpmail)
#@75 File name of queued mail index,
This is relative to `smtpmail-queue-dir'.
(defvar smtpmail-queue-index-file "index" (#$ . 3322))
(byte-code "\304B\305B\306B\303B\307\303!\204
\nP\304\207" [current-load-list smtpmail-queue-dir
smtpmail-queue-index-file smtpmail-queue-index smtpmail-address-buffer
smtpmail-recipient-address-list smtpmail-read-point boundp] 2)
(defalias 'smtpmail-send-it