🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.vm.bug
Article #9034

vm-goto-message ignores prefix arg ?

#9034
From: Jerry
Date: Thu, 18 Jun 1992 07:58
51 lines
2583 bytes
Well, this just "bugged" me, so to speak.  I don't want
vm-goto-message to ignore prefix arguments just because it "doesn't
like" the location of my summary cursor.  If I didn't know which
message I wanted to goto, I wouldn't take the time enter a prefix.
I would just hit RET and let vm-follow-summary-cursor do it's job.

-Jerry

*** vm-motion.el.orig	Thu Jun 18 01:23:11 1992
--- vm-motion.el	Thu Jun 18 01:45:41 1992
***************
*** 21,39 ****
  	vm-message-pointer new))
  
  (defun vm-goto-message (n)
!   "Go to the message numbered N.
! Interactively N is the prefix argument.  If no prefix arg is provided
! N is prompted for in the minibuffer.
  
! If vm-follow-summary-cursor is non-nil this command first tries
! to follow the summary cursor to a new message.  If a new message
! is selected in this way, no further action is taken.  I.e. you can move
! the cursor in the summary buffer, press RETURN and select a new
! message without typing in a message number."
    (interactive
     (list
!     (cond ((vm-follow-summary-cursor) nil)
! 	  (current-prefix-arg (prefix-numeric-value current-prefix-arg))
  	  (t (vm-read-number "Go to message: ")))))
    (if (null n)
        ()				; nil means work has been done already
--- 21,39 ----
  	vm-message-pointer new))
  
  (defun vm-goto-message (n)
!   "Go to the message numbered N.  Interactively, N is the prefix argument.
  
! If no prefix arg is provided and vm-follow-summary-cursor is non-nil,
! then this command first tries to follow the summary cursor to a new
! message.  If a message is selected in this way, no further action is
! taken.  I.e., you can move the cursor to the desired message in the
! summary buffer, and then press RETURN to select that message.
! 
! Otherwise, N is prompted for in the minibuffer."
    (interactive
     (list
!     (cond (current-prefix-arg (prefix-numeric-value current-prefix-arg))
! 	  ((vm-follow-summary-cursor) nil)
  	  (t (vm-read-number "Go to message: ")))))
    (if (null n)
        ()				; nil means work has been done already
Technical Details
Message-ID: <9206180758.AA11236@banach.math.ep.utexas.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vm

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f6829,fc26f4f4847f39a0,start
X-Google-Attributes: gidf6829,public
X-Google-ArrivalTime: 1992-06-17 17:33:16 PST
Newsgroups: gnu.emacs.vm.bug
Sender: bug-vm-request@uunet.uu.net
Date: Thu, 18 Jun 92 01:58:57 MDT
From: jerry@math.ep.utexas.edu (Jerry)
Message-ID: <9206180758.AA11236@banach.math.ep.utexas.edu>
Subject: vm-goto-message ignores prefix arg ?
Path: arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vm
Lines: 51