;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(if (equal server-name "")
(message "Connecting to IRC server...")
(message "Connecting to %s..." server-name))
- (setq process
- (funcall function (riece-server-process-name server-name)
- (concat " *IRC*" server-name)
- host service))
+ (condition-case error
+ (setq process
+ (funcall function (riece-server-process-name server-name)
+ (concat " *IRC*" server-name)
+ host service))
+ (error
+ (if (equal server-name "")
+ (message "Connecting to IRC server...failed: %S" error)
+ (message "Connecting to %s...failed: %S" server-name error))
+ (signal (car error) (cdr error))))
(if (equal server-name "")
(message "Connecting to IRC server...done")
(message "Connecting to %s...done" server-name))
(quit
(if (equal server-name "")
(message "Password: Quit")
- (message (format "Password for %s: Quit"
- server-name)))
+ (message "Password for %s: Quit" server-name))
'quit)))
(setq riece-reconnect-with-password nil)))
(if (eq password 'quit)
(if (rassq process riece-server-process-alist)
(delete-process process)))
process))
- (riece-process-send-string process
- (if message
- (format "QUIT :%s\r\n" message)
- "QUIT\r\n")))
+ (let ((server-name (with-current-buffer (process-buffer process)
+ riece-server-name)))
+ (if (equal server-name "")
+ (message "Sending QUIT...")
+ (message "Sending QUIT to \"%s\"..." server-name))
+ (riece-process-send-string process
+ (if message
+ (format "QUIT :%s\r\n" message)
+ "QUIT\r\n"))
+ (if (equal server-name "")
+ (message "Sending QUIT...done")
+ (message "Sending QUIT to \"%s\"...done" server-name))))
-(provide 'riece-irc)
\ No newline at end of file
+(provide 'riece-irc)
+
+;;; riece-irc.el ends here