Here is a patch for  gnus-lucid.el that does the following:

- add a "Forward Article" entry to the `gnus-Subject-menu'. 

- change all `defvar's in `defconst's (they are easily re-evaluable
  after modifications).

- add a `gnus-Article-menu'.

- makes `gnus-install-mouse-tracker' more custommizable.

Enjoy

	Guido

-------------------------- gnus-lucid-patch --------------------------
*** gnus-lucid.el~	Mon Aug  3 01:37:03 1992
--- gnus-lucid.el	Thu Oct 15 17:15:51 1992
***************
*** 21,27 ****
  ;;; Right button pops up a menu of commands in Newsgroup and Subject buffers.
  ;;; Middle button selects indicated newsgroup or article.
  
! (defvar gnus-Subject-menu
    '("GNUS Subject Commands"
      ["Select Article / Next Page" gnus-Subject-next-page t]
      ["Prev Page" gnus-Subject-prev-page t]
--- 21,27 ----
  ;;; Right button pops up a menu of commands in Newsgroup and Subject buffers.
  ;;; Middle button selects indicated newsgroup or article.
  
! (defconst gnus-Subject-menu
    '("GNUS Subject Commands"
      ["Select Article / Next Page" gnus-Subject-next-page t]
      ["Prev Page" gnus-Subject-prev-page t]
***************
*** 37,42 ****
--- 37,43 ----
      ["Mail Reply (Citing Original)" gnus-Subject-mail-reply-with-original t]
      ["Post Reply" gnus-Subject-post-reply t]
      ["Post Reply (Citing Original)" gnus-Subject-post-reply-with-original t]
+     ["Forward Article" gnus-Subject-mail-forward t]
      "----"
      ["Mark Article as Read" gnus-Subject-mark-as-read-forward t]
      ["Mark Article as Unread" gnus-Subject-mark-as-unread-backward t]
***************
*** 46,52 ****
       gnus-Subject-catch-up-and-exit t]
      ))
  
! (defvar gnus-Group-menu
    '("GNUS Group Commands"
      ["Select Newsgroup" gnus-Group-read-group t]
      ["Unsubscribe Newsgroup" gnus-Group-unsubscribe-current-group t]
--- 47,53 ----
       gnus-Subject-catch-up-and-exit t]
      ))
  
! (defconst gnus-Group-menu
    '("GNUS Group Commands"
      ["Select Newsgroup" gnus-Group-read-group t]
      ["Unsubscribe Newsgroup" gnus-Group-unsubscribe-current-group t]
***************
*** 64,69 ****
--- 65,80 ----
      ["Quit GNUS" gnus-Group-exit t]
      ))
  
+ (defconst gnus-Article-menu 
+   '("GNUS Article Commands"
+     ["Next Page" gnus-Article-next-page t]
+     ["Prev Page" gnus-Article-prev-page t]
+     ["Pop Article History" gnus-Article-pop-article t]
+     ["Refer Article" gnus-Article-refer-article t]
+     ["Show Subjects" gnus-Article-show-subjects t]
+     ["Gnus Info Find Node" gnus-Info-find-node t]
+     ["Describe Briefly" gnus-Article-describe-briefly t]))
+ 
  (defun gnus-Subject-menu (e)
    (interactive "e")
    (mouse-set-point e)
***************
*** 78,83 ****
--- 89,98 ----
    (search-forward ":" nil t)
    (popup-menu gnus-Group-menu))
  
+ (defun gnus-Article-menu (e)
+   (interactive "@e")
+   (popup-menu gnus-Article-menu))
+ 
  (defun gnus-Group-mouse-read-group (e)
    (interactive "e")
    (mouse-set-point e)
***************
*** 98,103 ****
--- 113,119 ----
  (define-key gnus-Subject-mode-map 'button3 'gnus-Subject-menu)
  (define-key gnus-Group-mode-map   'button3 'gnus-Group-menu)
  
+ (define-key gnus-Article-mode-map 'button3 'gnus-Article-menu)
  
  ;;; Put message headers in boldface, etc...
  
***************
*** 201,207 ****
  
  (defun gnus-install-mouse-tracker ()
    (require 'mode-motion)
!   (setq mode-motion-hook 'mode-motion-highlight-line))
  
  (add-hook 'gnus-Subject-mode-hook 'gnus-install-mouse-tracker)
  (add-hook 'gnus-Group-mode-hook   'gnus-install-mouse-tracker)
--- 217,225 ----
  
  (defun gnus-install-mouse-tracker ()
    (require 'mode-motion)
!   ;; This allows further mode-motion-hook custommization, e.g., in the .emacs
!   (if (eq (default-value 'mode-motion-hook) mode-motion-hook)
!       (setq mode-motion-hook 'mode-motion-highlight-line)))
  
  (add-hook 'gnus-Subject-mode-hook 'gnus-install-mouse-tracker)
  (add-hook 'gnus-Group-mode-hook   'gnus-install-mouse-tracker)
x-gateway: rodan.UU.NET from bug-lucid-emacs to alt.lucid-emacs.bug; Fri, 16 Oct 1992 06:44:09 EDT
Date: Fri, 16 Oct 1992 11:43:15 +0100
From: Guido.Bosch%loria.fr@lucid.com (Guido Bosch)
Subject: Re: gnus-lucid.el patch
Reply-To: bosch%loria.fr@lucid.com (Guido BOSCH)
Newsgroups: alt.lucid-emacs.bug