home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / gnu / emacs / gnus / 1505 < prev    next >
Encoding:
Text File  |  1993-01-24  |  2.3 KB  |  75 lines
  1. Path: sparky!uunet!mcsun!news.funet.fi!funic!sauna.cs.hut.fi!cs.hut.fi!jpm
  2. From: jpm@cs.hut.fi (Jussi-Pekka Mantere)
  3. Newsgroups: gnu.emacs.gnus
  4. Subject: Re: Supercite 2.2 and GNUS 3.14.1 (GNUS2 mods)
  5. Date: 25 Jan 93 02:05:12 GMT
  6. Organization: Helsinki University of Technology, Finland
  7. Lines: 61
  8. Distribution: inet
  9. Message-ID: <JPM.93Jan25040512@cardhu.cs.hut.fi>
  10. References: <1juv1cINNm4d@life.ai.mit.edu>
  11. NNTP-Posting-Host: cardhu.cs.hut.fi
  12. In-reply-to: petrilli@hal.gnu.ai.mit.edu's message of 24 Jan 1993 20:43:24 GMT
  13.  
  14. Chris Petrilli <petrilli@hal.gnu.ai.mit.edu> writes:
  15.  
  16.    Anyway, I'm running Supercite 2.2 and I want to use it to do my
  17.    "yanking" in GNUS when I followup to a message, but it doesn't seem to
  18.    work.
  19.  
  20. Maybe this will help. If there is another way of hooking into both
  21. post and reply modes, please let me know.
  22.  
  23. Oh, you'll want to use something like:
  24.  
  25.    (setq gnus-News-reply-hook 'my-sc-overload-hook)
  26.  
  27. Cheers,
  28.  
  29. Jussi-Pekka Mantere
  30.  
  31. -- clip clip --
  32. *** gnus2.el.orig    Mon Jan 18 02:00:14 1993
  33. --- gnus2.el    Mon Jan 25 03:50:58 1993
  34. ***************
  35. *** 489,494 ****
  36. --- 489,504 ----
  37.     "*A hook called before posting an article.
  38.   If you'd like to run a special encoding program, use this hook.")
  39.   
  40. + (defvar gnus-Post-news-hook nil
  41. +   "*A hook called before editing an article to be posted.
  42. + If you'd like to modify the buffer (headers or body) before you enter
  43. + any new text, use this hook.")
  44. + 
  45. + (defvar gnus-News-reply-hook nil
  46. +   "*A hook called before editing the reply article.
  47. + If you'd like to modify the buffer (headers or body) before you enter
  48. + any new text, use this hook.")
  49. + 
  50.   (defvar gnus-Exit-group-hook nil
  51.     "*A hook called when exiting (not quitting) Subject mode.
  52.   If your machine is so slow that exiting from Subject mode takes very
  53. *** gnuspost2.el.orig    Mon Jan 18 02:13:37 1993
  54. --- gnuspost2.el    Mon Jan 18 04:50:29 1993
  55. ***************
  56. *** 202,207 ****
  57. --- 202,208 ----
  58.           ;; Move point to Newsgroup: field.
  59.           (goto-char (point-min))
  60.           (end-of-line))
  61. +       (run-hooks 'gnus-Post-news-hook)
  62.         ))
  63.       (message "")))
  64.   
  65. ***************
  66. *** 299,304 ****
  67. --- 300,306 ----
  68.             (goto-char (point-max))
  69.             (news-reply-yank-original nil)
  70.             (goto-char last)))
  71. +     (run-hooks 'gnus-News-reply-hook)
  72.       )
  73.       (message "")))
  74.   
  75.