Började fixa bug 750

src/ChangeLog

 2002-09-14  David Byers  <david.byers@swipnet.se>
 
+	Start fixing bug 750:
+	* lyskom-buttons.el (kom-button-press): Handle missing default
+	action by showing the keyboard menu.
+
+	* vars.el.in (lyskom-button-actions): Removed default action for
+	aux-edit-menu.
+	(lyskom-button-actions): Removed no-op default action for
+	add-recipient-or-xref.
+
 	Fix bug 752:
 	* commands1.el (kom-list-re): Use lyskom-a-or-b-or-c-p to choose
 	what to search in.

src/lyskom-buttons.el

@@ -100,7 +100,14 @@ on such functions see the documentation for lyskom-add-button-action."
 (defun kom-button-press ()
   "Simulate a mouse button press at point."
   (interactive)
-  (lyskom-button-press (point)))
+  (let* ((type  (get-text-property (point) 'lyskom-button-type))
+         (data  (assq type lyskom-button-actions))
+         (hint (get-text-property (point) 'lyskom-button-hint))
+         (act  (or (and kom-use-button-hints hint)
+                   (and data (elt data 2)))))
+    (cond ((null data) (lyskom-button-press (point)))
+          ((null act) (lyskom-button-menu (point) 'key))
+          (t (lyskom-button-press (point))))))
 
 (defun kom-menu-button-press-or-self-insert-command ()
   "Simulate a menu mouse button press at point, if there is a button."

src/vars.el.in

@@ -1521,7 +1521,7 @@ appear more than once"
      nil)
     (aux-edit-menu
      nil
-     aux-edit-menu-text
+     nil
      ((lyskom-edit-toggle-secret-aux-action . lyskom-edit-toggle-secret-aux)
       (lyskom-edit-toggle-anonymous-aux-action . lyskom-edit-toggle-anonymous-aux)
       (lyskom-edit-toggle-inherit-aux-action . lyskom-edit-toggle-inherit-aux)
@@ -1569,7 +1569,7 @@ appear more than once"
 	    (car (cdr recpt-and-buffer)))))))
     (add-recipient-or-xref
      add-recipient-or-xref
-     (lambda (buffer argument text) nil)
+     nil
      ((lyskom-button-recpt-add-recipient
        . (lambda (buffer buffer text)
            (set-buffer buffer)