Commit f11d8fac authored by David Byers's avatar David Byers
Browse files

Fixed incorrect hook name. Buttons work again

parent 347a94dd
2000-07-17 David Byers <davby@ida.liu.se>
* vars.el.in (lyskom-add-sub-recipients-hook): Renamed function
specified in default hook.
(lyskom-add-sub-recipients-hook): Made local-hook.
* lyskom-buttons.el (lyskom-button-open-url): Don't go to end of
buffer when viewing an URL.
2000-07-05 David Byers <davby@ida.liu.se>
* vars.el.in (lyskom-button-actions): Moved definition of
......
......@@ -3235,91 +3235,6 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(lyskom-language-var kom-ispell-dictionary sv
"english")
;;;; ============================================================
;;;; Text buttom menuse go here. This will probably be moved back
;;;; to vars.el.in when the strings have been replaced by
;;;; symbols, but for now they'll stay here.
(lyskom-language-var lyskom-button-actions en
'((text
text-text
lyskom-button-view-text
(("View text" . lyskom-button-view-text)
("Review unconverted" . lyskom-button-review-noconversion)
("Review tree" . lyskom-button-review-tree)
("Review root text" . lyskom-button-find-root)
("Write commend" . lyskom-button-comment-text)
("Write personal reply" . lyskom-button-private-comment-text)
("Mark text" . lyskom-button-mark-text)
("Unmark text" . lyskom-button-unmark-text)
("Save archive copy" . lyskom-button-save-text)
)
nil
; ((nil lyskom-print-text footer lyskom-button-comment-text))
)
(conf
conf-text
lyskom-button-view-conf-presentation
(("View presentation" . lyskom-button-view-conf-presentation)
("View conference status" . lyskom-button-view-conf-status)
("Go to conference" . lyskom-button-goto-conf)
("Send group message" . lyskom-button-send-message)
("Join conference" . lyskom-button-add-self)
("Leave conference" . lyskom-button-sub-self))
((kom-list-news . lyskom-button-goto-conf)))
(pers
pers-text
lyskom-button-view-pers-presentation
(("View presentation" . lyskom-button-view-pers-presentation)
("View user status" . lyskom-button-view-pers-status)
("Send letter" . lyskom-button-mail)
("Send personal message" . lyskom-button-send-message))
nil)
(url
url-text
lyskom-button-open-url
(("Open" . lyskom-button-open-url)
("Copy" . lyskom-button-copy-url))
nil)
(info-node
info-node-text
lyskom-button-goto-info-node
(("Open" . lyskom-button-goto-info-node))
nil)
(email
email-text
lyskom-button-open-email
(("Send mail" . lyskom-button-open-email)
("Copy" . lyskom-button-copy-email))
nil)
(aux
aux-text
lyskom-button-info-aux
(("Information" . lyskom-button-info-aux)
("Delete" . lyskom-button-delete-aux))
nil)
(aux-edit-menu
nil
nil
(("Toggle \"secret\"" . lyskom-edit-toggle-secret-aux)
("Toggle \"anonymous\"" . lyskom-edit-toggle-anonymous-aux)
("Toggle \"inherited\"" . lyskom-edit-toggle-inherit-aux)
("Delete" . lyskom-edit-delete-aux))
nil)
(prioritize-flag-menu
nil
lyskom-prioritize-flag-toggle
(("Toggle" . lyskom-prioritize-flag-toggle)
("Set" . lyskom-prioritize-flag-set)
("Clear" . lyskom-prioritize-flag-clear))
nil)
(func
nil
lyskom-button-apply
nil
nil)
))
;;;; ================================================================
......
......@@ -710,7 +710,6 @@ This is a LysKOM button action."
(setq url-manager (lyskom-get-url-manager protocol))
(if (null url-manager)
(lyskom-error "Can't find URL viewer"))
(goto-char (point-max))
(funcall (elt url-manager 3) url url-manager)))
......
......@@ -476,14 +476,15 @@ This is a list of commands that are executed after we have logged in but before
any command is accepted from the keyboard. See also lyskom-login-hook."
server)
(def-kom-var lyskom-add-sub-recipients-hook '(lyskom-annoying-verify-add-rcpt)
(def-kom-var lyskom-add-sub-recipients-hook '(lyskom-verify-add-recipient)
"*Hook that is called when adding and removing recipients. When the
hooks are called, lyskom-add-sub-recipient-action is bound to the
action in progress, lyskom-add-sub-recipient-source-conf to the
conference being moved from (when lyskom-add-sub-recipient-action is
'move) and lyskom-add-sub-recipient-target-conf to the conference
being moved to/added to/subtracted from. See also
`lyskom-add-sub-recipient'.")
`lyskom-add-sub-recipient'."
local-hook)
(def-kom-var kom-do-when-done '(kom-review-all-marked-texts kom-display-time)
......@@ -694,12 +695,6 @@ A number means wrap articles shorter than the number (in bytes)."
"*The number of seconds between periodic requests used to keep the session alive"
server)
;;;
;;; lyskom-button-actions has been moved to swedish-strings.el on account
;;; of there being a bunch of language-dependent strings in it.
;;;
(defvar lyskom-transforming-external-text nil
"Dynamically bound to non-nil when transforming text in which text,
conference and person buttons are not expected.")
......@@ -1187,8 +1182,6 @@ Also see the function \"lyskom-add-button-action\"."
local
inherited)
(put 'lyskom-button-actions 'lyskom-language-force t)
(def-kom-var kom-show-imported-envelope-sender t
"*If non-nil, show the envelope sender of texts imported by komimportmail."
server)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment