projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bfcde1d
)
* riece.el (riece-submit-bug-report): Query VERSION.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 19 Nov 2004 15:25:22 +0000
(15:25 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 19 Nov 2004 15:25:22 +0000
(15:25 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/riece.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
220358b
..
77ce8ba
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,7
@@
+2004-11-19 Daiki Ueno <ueno@unixuser.org>
+
+ * riece.el (riece-submit-bug-report): Query VERSION.
+
2004-11-19 Daiki Ueno <ueno@unixuser.org>
* riece.el (riece-submit-bug-report): Query CTCP VERSION before
2004-11-19 Daiki Ueno <ueno@unixuser.org>
* riece.el (riece-submit-bug-report): Query CTCP VERSION before
diff --git
a/lisp/riece.el
b/lisp/riece.el
index
4fe2fee
..
86c1d62
100644
(file)
--- a/
lisp/riece.el
+++ b/
lisp/riece.el
@@
-541,7
+541,7
@@
Instead, these commands are available:
;; This strange form ensures that (recent-keys) is the value before
;; the bug subject string is read.
(interactive (list (riece-recent-messages 20) (recent-keys)))
;; This strange form ensures that (recent-keys) is the value before
;; the bug subject string is read.
(interactive (list (riece-recent-messages 20) (recent-keys)))
- (message "Querying
CTCP VERSION
...")
+ (message "Querying
server version
...")
(let ((pointer riece-server-process-alist)
nickname)
(while pointer
(let ((pointer riece-server-process-alist)
nickname)
(while pointer
@@
-549,12
+549,15
@@
Instead, these commands are available:
(setq nickname
(with-current-buffer (process-buffer (cdr (car pointer)))
riece-real-nickname)))
(setq nickname
(with-current-buffer (process-buffer (cdr (car pointer)))
riece-real-nickname)))
+ (process-send-string
+ (cdr (car pointer))
+ "VERSION")
(process-send-string
(cdr (car pointer))
(format "PRIVMSG %s :\1VERSION\1\r\n" nickname)))
(setq pointer (cdr pointer))))
(sit-for 3)
(process-send-string
(cdr (car pointer))
(format "PRIVMSG %s :\1VERSION\1\r\n" nickname)))
(setq pointer (cdr pointer))))
(sit-for 3)
- (message "Querying
CTCP VERSION
...done")
+ (message "Querying
server version
...done")
(require 'reporter)
(let ((reporter-prompt-for-summary-p t))
(unless riece-debug
(require 'reporter)
(let ((reporter-prompt-for-summary-p t))
(unless riece-debug