projects
/
elisp
/
riece.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
73daa14
)
decrypted -> encrypted.
author
ueno
<ueno>
Sun, 28 Jan 2007 12:42:03 +0000
(12:42 +0000)
committer
ueno
<ueno>
Sun, 28 Jan 2007 12:42:03 +0000
(12:42 +0000)
lisp/riece-epg.el
patch
|
blob
|
history
diff --git
a/lisp/riece-epg.el
b/lisp/riece-epg.el
index
df66fa6
..
6c1c77f
100644
(file)
--- a/
lisp/riece-epg.el
+++ b/
lisp/riece-epg.el
@@
-107,7
+107,7
@@
t)))
(riece-display-message
(riece-make-message (riece-current-nickname) riece-current-channel
t)))
(riece-display-message
(riece-make-message (riece-current-nickname) riece-current-channel
- (concat "[decrypted:" string "]") nil t))
+ (concat "[encrypted:" string "]") nil t))
(let ((next-line-add-newlines t))
(next-line 1))))
(let ((next-line-add-newlines t))
(next-line 1))))
@@
-162,7
+162,7
@@
(progn
(riece-message-set-text
message
(progn
(riece-message-set-text
message
- (format "[decrypted:%s]"
+ (format "[encrypted:%s]"
(riece-epg-decrypt-string-for-identity
context string (riece-message-target message)))))
(error
(riece-epg-decrypt-string-for-identity
context string (riece-message-target message)))))
(error
@@
-205,7
+205,7
@@
(delete-region from to)
(save-excursion
(goto-char from)
(delete-region from to)
(save-excursion
(goto-char from)
- (insert "[decrypted:" plain "]")))))
+ (insert "[encrypted:" plain "]")))))
(defun riece-epg-requires ()
(if (memq 'riece-button riece-addons)
(defun riece-epg-requires ()
(if (memq 'riece-button riece-addons)