/[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.55 by lektu, Fri May 9 22:48:10 2003 UTC revision 1.56 by jas, Tue May 13 19:48:21 2003 UTC
# Line 1  Line 1 
1  ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail  ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
2    
3  ;; Copyright (C) 1995, 1996, 2001, 2002 Free Software Foundation, Inc.  ;; Copyright (C) 1995, 1996, 2001, 2002, 2003 Free Software Foundation, Inc.
4    
5  ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>  ;; Author: Tomoji Kagatani <kagatani@rbc.ncl.omron.co.jp>
6  ;; Maintainer: Simon Josefsson <simon@josefsson.org>  ;; Maintainer: Simon Josefsson <simon@josefsson.org>
# Line 457  This is relative to `smtpmail-queue-dir' Line 457  This is relative to `smtpmail-queue-dir'
457    (let ((cred (smtpmail-find-credentials    (let ((cred (smtpmail-find-credentials
458                 smtpmail-starttls-credentials host port)))                 smtpmail-starttls-credentials host port)))
459      (if (null (and cred (condition-case ()      (if (null (and cred (condition-case ()
460                              (call-process "starttls")                              (progn
461                                  (require 'starttls)
462                                  (call-process starttls-program))
463                            (error nil))))                            (error nil))))
464          ;; The normal case.          ;; The normal case.
465          (open-network-stream "SMTP" process-buffer host port)          (open-network-stream "SMTP" process-buffer host port)

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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