From a4521c6e3cf749357fca02c0271b9b3dafc0981b Mon Sep 17 00:00:00 2001
From: syl20bnr <sylvain.benner@gmail.com>
Date: Tue, 2 Sep 2014 00:30:02 -0400
Subject: [PATCH] Remove bad stuff pushed from a previous commit

---
 extensions/rcirc-reconnect/rcirc-reconnect.el | 113 ------------------
 1 file changed, 113 deletions(-)
 delete mode 100644 extensions/rcirc-reconnect/rcirc-reconnect.el

diff --git a/extensions/rcirc-reconnect/rcirc-reconnect.el b/extensions/rcirc-reconnect/rcirc-reconnect.el
deleted file mode 100644
index 0bc1d84ee..000000000
--- a/extensions/rcirc-reconnect/rcirc-reconnect.el
+++ /dev/null
@@ -1,113 +0,0 @@
-;;;; Auto reconnect
-;;;; Taken from http://www.emacswiki.org/emacs/rcircReconnect
-(defun-rcirc-command reconnect (arg)
-  "Reconnect the server process."
-  (interactive "i")
-  (if (buffer-live-p rcirc-server-buffer)
-      (with-current-buffer rcirc-server-buffer
-        (let ((reconnect-buffer (current-buffer))
-              (server (or rcirc-server rcirc-default-server))
-              (port (if (boundp 'rcirc-port) rcirc-port rcirc-default-port))
-              (nick (or rcirc-nick rcirc-default-nick))
-              channels)
-          (dolist (buf (buffer-list))
-            (with-current-buffer buf
-              (when (equal reconnect-buffer rcirc-server-buffer)
-                (remove-hook 'change-major-mode-hook
-                             'rcirc-change-major-mode-hook)
-                (let ((server-plist (cdr (assoc-string server rcirc-server-alist))))
-                  (when server-plist
-                    (setq channels (plist-get server-plist :channels))))
-                )))
-          (if process (delete-process process))
-          (rcirc-connect server port nick
-                         nil
-                         nil
-                         channels)))))
-
-;; the following minor mode does not work
-
-;; ;;; Attempt reconnection at increasing intervals when a connection is
-;; ;;; lost.
-
-;; (defvar rcirc-reconnect-attempts 0)
-
-;; ;;;###autoload
-;; (define-minor-mode rcirc-reconnect-mode
-;;   nil
-;;   nil
-;;   " Auto-Reconnect"
-;;   nil
-;;   (if rcirc-reconnect-mode
-;;       (progn
-;;         (make-local-variable 'rcirc-reconnect-attempts)
-;;         (add-hook 'rcirc-sentinel-functions
-;;                   'rcirc-reconnect-schedule nil t))
-;;     (remove-hook 'rcirc-sentinel-functions
-;;                  'rcirc-reconnect-schedule t)))
-;;   ;; (if rcirc-reconnect-mode
-;;   ;;     (add-hook 'rcirc-sentinel-functions 'sds-rcirc-sentinel)
-;;   ;;   (remove-hook 'rcirc-sentinel-functions 'sds-rcirc-sentinel)))
-
-;; (defun rcirc-reconnect-schedule (process &optional sentinel seconds)
-;;   (condition-case err
-;;       (when (and (eq 'closed (process-status process))
-;;                  (buffer-live-p (process-buffer process)))
-;;         (with-rcirc-process-buffer process
-;;           (unless seconds
-;;             (setq seconds (exp (1+ rcirc-reconnect-attempts))))
-;;           (rcirc-print
-;;            process "my-rcirc.el" "ERROR" rcirc-target
-;;            (format "scheduling reconnection attempt in %s second(s)." seconds) t)
-;;           (run-with-timer
-;;            seconds
-;;            nil
-;;            'rcirc-reconnect-perform-reconnect
-;;            process)))
-;;     (error
-;;      (rcirc-print process "RCIRC" "ERROR" nil
-;;                   (format "%S" err) t))))
-
-;; (defun rcirc-reconnect-perform-reconnect (process)
-;;   (when (and (eq 'closed (process-status process))
-;;              (buffer-live-p (process-buffer process))
-;;              )
-;;     (with-rcirc-process-buffer process
-;;       (when rcirc-reconnect-mode
-;;         (if (get-buffer-process (process-buffer process))
-;;             ;; user reconnected manually
-;;             (setq rcirc-reconnect-attempts 0)
-;;           (let ((msg (format "attempting reconnect to %s..."
-;;                              (process-name process)
-;;                              )))
-;;             (rcirc-print process "my-rcirc.el" "ERROR" rcirc-target
-;;                          msg t))
-;;           ;; remove the prompt from buffers
-;;           (condition-case err
-;;               (progn
-;;                 (save-window-excursion
-;;                   (save-excursion
-;;                     (rcirc-cmd-reconnect nil)))
-;;                 (setq rcirc-reconnect-attempts 0))
-;;             ((quit error)
-;;              (incf rcirc-reconnect-attempts)
-;;              (rcirc-print process "my-rcirc.el" "ERROR" rcirc-target
-;;                           (format "reconnection attempt failed: %s" err)  t)
-;;              (rcirc-reconnect-schedule process))))))))
-
-;; (defvar sds-rcirc-sentinel-last (current-time) "last reconnect attempt time")
-;; (defun sds-rcirc-sentinel (process sentinel)
-;;   (let* ((now (current-time))
-;;          (delay (float-time (time-subtract (current-time)
-;;                                            sds-rcirc-sentinel-last))))
-;;     (message "%s sds-rcirc-sentinel: %s %s %s (last: %s, %s ago)"
-;;              (format-time-string "%F %R") process
-;;              (process-status process) sentinel
-;;              (format-time-string "%F %R" sds-rcirc-sentinel-last)
-;;              (sds-difftime-to-string delay))
-;;     (when (and (string= sentinel "deleted")
-;;                (< 60 delay)) ; do not try to reconnect more than once a minute
-;;       (setq sds-rcirc-sentinel-last now)
-;;       (rcirc-cmd-reconnect nil))))
-
-(provide 'rcirc-reconnect)