(autoload 'liece-dcc-chat-send "liece-dcc")
+(autoload 'liece-command-ctcp-action "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-version "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-userinfo "liece-ctcp" nil t)
+(autoload 'liece-command-ctcp-userinfo-from-minibuffer "liece-ctcp" nil t)
+(autoload 'liece-command-ctcp-help "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-clientinfo "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-ping "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-time "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-x-face "liece-ctcp" nil t)
+(autoload 'liece-command-ctcp-x-face-from-xbm-file "liece-ctcp" nil t)
(autoload 'liece-command-ctcp-comment "liece-ctcp" nil t)
-(autoload 'liece-command-ctcp-help "liece-ctcp" nil t)
(defun liece-command-poll-names ()
"Handler for polling NAMES."
(if (eq current-prefix-arg '-)
(read-string
(format (_ "Key for channel %s: ") join-channel-var))
- (let ((passwd-echo ?*))
- (read-passwd
- (format (_ "Key for channel %s: ") join-channel-var))))))
+ (liece-read-passwd
+ (format (_ "Key for channel %s: ") join-channel-var)))))
(list join-channel-var key)))
(let ((real-chnl (liece-channel-real join-channel-var)))
(if (numberp join-channel-var)
(car ignore))))
;; did not find, add to ignored ones
(let ((expire-time (if (> timeout 0)
- (liece-time-add (current-time)
- (* timeout 60)))))
+ (liece-time-elapsed (current-time)
+ (* timeout 60)))))
(and silent (> timeout 0)
(setcar (cdr (cdr expire-time)) -1))
(setq liece-kill-nickname
(liece-send
"MODE %s %c%s %s"
(liece-channel-real liece-current-channel)
- (if val ?+ ?-) (make-string (length nicks) ?o)
+ (if val ?+ ?-) (make-string (length nicks) mode)
(string-join nicks " ")))
(defun liece-command-set-operators (nicks &optional arg)
(unwind-protect
(dolist (nick nicks)
(push nick run)
- (if (= (length run) liece-compress-mode-length)
- (liece-command-qualify-nicks ?o run (not arg))))
+ (when (= (length run) liece-compress-mode-length)
+ (liece-command-qualify-nicks ?o run (not arg))
+ (setq run nil)))
(when run
(liece-command-qualify-nicks ?o run (not arg))))))
(unwind-protect
(dolist (nick nicks)
(push nick run)
- (if (= (length run) liece-compress-mode-length)
- (liece-command-qualify-nicks ?v run (not arg))))
+ (when (= (length run) liece-compress-mode-length)
+ (liece-command-qualify-nicks ?v run (not arg))
+ (setq run nil)))
(when run
(liece-command-qualify-nicks ?v run (not arg))))))
(if arg (read-string (_ "Signoff message: "))
(or liece-signoff-message
(product-name (product-find 'liece-version))))))
- (if quit-string
- (liece-send "QUIT :%s" quit-string)
- (liece-send "QUIT")))))
+ (liece-close-server quit-string))))
(defun liece-command-generic (message)
"Enter a generic IRC MESSAGE, which is sent to the server.