From 77c70bd6e916629878a25dc1c23e45c56341edb3 Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 5 Aug 2010 02:50:40 +0000 Subject: [PATCH] (smtp-submit-package): Handle the case that `smtp-find-connection' returns nil in unwind forms. --- ChangeLog | 5 +++++ smtp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8e4e5d0..d2ff872 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2010-08-05 Tetsurou Okazaki + + * smtp.el (smtp-submit-package): Handle the case that + `smtp-find-connection' returns nil in unwind forms. + 2010-06-21 Katsumi Yamaoka * FLIM-CFG: Add emu subdirectory to load-path when LISPDIR is diff --git a/smtp.el b/smtp.el index ba95db6..fe511e9 100644 --- a/smtp.el +++ b/smtp.el @@ -399,7 +399,7 @@ BUFFER may be a buffer or a buffer name which contains mail message." (smtp-primitive-rcptto package) (smtp-primitive-data package)) (let ((connection (smtp-find-connection (current-buffer)))) - (when (smtp-connection-opened connection) + (when (and connection (smtp-connection-opened connection)) (condition-case nil (smtp-primitive-quit package) (smtp-error)) -- 1.7.10.4