/[emacs]/emacs/lisp/mail/smtpmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/smtpmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by jas, Wed Sep 11 04:53:15 2002 UTC revision 1.48 by jas, Thu Sep 12 06:03:03 2002 UTC
# Line 66  Line 66 
66  ;;; Code:  ;;; Code:
67    
68  (require 'sendmail)  (require 'sendmail)
 (require 'time-stamp)  
69  (autoload 'starttls-open-stream "starttls")  (autoload 'starttls-open-stream "starttls")
70  (autoload 'starttls-negotiate "starttls")  (autoload 'starttls-negotiate "starttls")
71  (autoload 'mail-strip-quoted-names "mail-utils")  (autoload 'mail-strip-quoted-names "mail-utils")
# Line 343  This is relative to `smtpmail-queue-dir' Line 342  This is relative to `smtpmail-queue-dir'
342                              smtpmail-recipient-address-list tembuf))                              smtpmail-recipient-address-list tembuf))
343                        (error "Sending failed; SMTP protocol error"))                        (error "Sending failed; SMTP protocol error"))
344                  (error "Sending failed; no recipients"))                  (error "Sending failed; no recipients"))
345              (let* ((file-data (concat              (let* ((file-data
346                                 smtpmail-queue-dir                      (expand-file-name
347                                 (concat (time-stamp-yyyy-mm-dd)                       (format "%s_%i"
348                                         "_" (time-stamp-hh:mm:ss)                               (format-time-string "%Y-%m-%d_%H:%M:%S")
349                                         "_"                               (setq smtpmail-queue-counter
350                                         (setq smtpmail-queue-counter                                     (1+ smtpmail-queue-counter)))
351                                               (1+ smtpmail-queue-counter)))))                       smtpmail-queue-dir))
352                        (file-elisp (concat file-data ".el"))                     (file-data (convert-standard-filename file-data))
353                       (file-elisp (concat file-data ".el"))
354                     (buffer-data (create-file-buffer file-data))                     (buffer-data (create-file-buffer file-data))
355                     (buffer-elisp (create-file-buffer file-elisp))                     (buffer-elisp (create-file-buffer file-elisp))
356                     (buffer-scratch "*queue-mail*"))                     (buffer-scratch "*queue-mail*"))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26