home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / patches / kill-fix < prev    next >
Encoding:
Text File  |  1991-05-03  |  1.3 KB  |  38 lines
  1. ; From: montnaro@sprite.crd.ge.com (Skip Montanaro)
  2. ; Newsgroups: gnu.emacs.gnus
  3. ; Subject: Going back to the front of the group after C-k
  4. ; Date: 17 Oct 89 13:10:52 GMT
  5. ; 
  6. ; 
  7. ; I recently wrote asking why 'k' in the Subject buffer set the cursor to the
  8. ; first unread message in the newsgroup, but 'C-k' just set the cursor to the
  9. ; next unread message. I didn't get any good answers, so in typical GNU-ist
  10. ; fashion decided to hack the sources a bit. Below are the trivial diffs to
  11. ; get the behavior I desired. As you can see, I added a new variable, which
  12. ; defaults to nil (preserving the old behavior).
  13. ; 
  14. ; *** gnus.el~    Tue Jun 27 14:01:42 1989
  15. ; --- gnus.el    Mon Oct 16 21:43:03 1989
  16. ; ***************
  17. ; *** 468,471 ****
  18. ; --- 468,474 ----
  19. ;     "*A directory placing an Info file of GNUS.")
  20. ;   
  21. ; + (defvar gnus-Subject-rewind-group-after-kill nil
  22. ; +   "*If t, go to beginning of group before searching for next unread article.")
  23. ; + 
  24. ;   
  25.   ;; Internal variables.
  26. ***************
  27. *** 2666,2669 ****
  28. --- 2669,2674 ----
  29.        (gnus-Subject-mark-same-subject
  30.         (gnus-Subject-subject-string) unmark)))
  31. +     (if gnus-Subject-rewind-group-after-kill
  32. +     (goto-char (point-min)))
  33.       (gnus-Subject-next-subject 1 (not unmark))
  34.       (message "%d articles are marked as %s"
  35. --
  36. Skip Montanaro (montanaro@crdgw1.ge.com)
  37.  
  38.