Lines Matching +defs:goto +defs:line
46 (defcustom rmail-summary-line-count-flag t
77 "Display a summary of all messages, one line per message."
113 \(including in the date and other lines, as well as the subject line),
114 Emacs will list the header line in the RMAIL-summary."
152 (goto-char (rmail-msgbeg msg))
157 (goto-char (point-min))
161 (funcall rmail-summary-line-decoder subj)
177 (goto-char (rmail-msgbeg msg))
187 (defvar rmail-new-summary-line-count)
191 DESCRIPTION makes part of the mode line of the summary buffer.
211 (rmail-new-summary-line-count 0))
220 (goto-char (point-min))
225 (cons (cons msgnum (rmail-make-summary-line msgnum))
247 (goto-char (point-min)))
278 (rmail-summary-goto-msg mesg t t)
285 (defun rmail-make-summary-line (msg)
286 (let ((line (or (aref rmail-summary-vector (1- msg))
288 (setq rmail-new-summary-line-count
289 (1+ rmail-new-summary-line-count))
290 (if (zerop (% rmail-new-summary-line-count 10))
292 rmail-new-summary-line-count))
293 (rmail-make-summary-line-1 msg)))))
295 (aset line 5
299 line))
302 (defcustom rmail-summary-line-decoder (function identity)
303 "*Function to decode summary-line.
309 (defun rmail-make-summary-line-1 (msg)
310 (goto-char (rmail-msgbeg msg))
311 (let* ((lim (save-excursion (forward-line 2) (point)))
325 (progn (end-of-line)
331 (line
333 (forward-line 1)
334 (if (looking-at "Summary-line: ")
336 (goto-char (match-end 0))
338 (progn (forward-line 1) (point))))))))
340 (and line
341 (not (string-match "#" line))
344 (progn (forward-line -1) (point)))
345 (setq line nil)))
346 ;; If we didn't get a valid status line from the message,
348 (or line
351 (beg (if (progn (goto-char (rmail-msgbeg msg))
354 (forward-line 1)
359 (goto-char beg)
360 (setq line (rmail-make-basic-summary-line)))
361 (goto-char (rmail-msgbeg msg))
362 (forward-line 2)
363 (insert "Summary-line: " line)))
364 (setq pos (string-match "#" line))
366 (funcall rmail-summary-line-decoder
368 (substring line 0 pos)
370 (substring line (1+ pos)))))
391 (defun rmail-make-basic-summary-line ()
392 (goto-char (point-min))
397 (save-excursion (end-of-line) (point)) t)
405 (save-excursion (end-of-line) (point)) t)
413 (save-excursion (end-of-line) (point)) t)
432 (while (progn (forward-line 1)
457 (goto-char (point-min))
465 (progn (end-of-line)
481 (if rmail-summary-line-count-flag
489 (goto-char beg)
505 (progn (end-of-line)
508 (buffer-substring (point) (progn (end-of-line) (point))))
516 (forward-line (if number number 1))
517 ;; It doesn't look nice to move forward past the last message line.
519 (forward-line -1))
524 (forward-line (- (if number number 1)))
525 ;; It doesn't look nice to move forward past the last message line.
527 (forward-line -1))
535 (forward-line 0)
536 (and (> number 0) (end-of-line))
544 (beginning-of-line)
563 (rmail-summary-goto-msg msg)))
574 (rmail-summary-goto-msg msg)))
597 (forward-line (if forward 1 -1))
598 ;; Get msg number of this line.
607 (goto-char (rmail-msgbeg i))
612 (goto-char beg)
617 (rmail-summary-goto-msg found)
641 (rmail-summary-goto-msg)
647 (save-excursion (beginning-of-line)
649 (forward-line (if backward -1 1)))
650 ;; It looks ugly to move to the empty line at end of buffer.
652 (forward-line -1))
666 (and n (rmail-summary-goto-msg n t t))
677 (beginning-of-line))
684 (and n (rmail-summary-goto-msg n nil t))
697 (end-of-line)
700 (rmail-summary-goto-msg)
709 (t (goto-char opoint))))))
734 (rmail-summary-goto-msg)))
801 ;; Show in Rmail the message described by the summary line that point is on,
807 ;; If at end of buffer, pretend we are on the last text line.
809 (forward-line -1))
810 (beginning-of-line)
869 (define-key rmail-summary-mode-map [mouse-2] 'rmail-summary-mouse-goto-message)
880 (define-key rmail-summary-mode-map "j" 'rmail-summary-goto-msg)
881 (define-key rmail-summary-mode-map "\C-m" 'rmail-summary-goto-msg)
1060 (defun rmail-summary-mouse-goto-message (event)
1061 "Select the message whose summary line you click on."
1063 (goto-char (posn-point (event-end event)))
1064 (rmail-summary-goto-msg))
1066 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
1075 (if (eobp) (forward-line -1))
1076 (beginning-of-line)
1085 ;; If message number N was specified, find that message's line
1097 (goto-char (point-max))
1098 (rmail-summary-goto-msg nil nowarn skip-rmail)))
1099 (goto-char (point-min))
1104 (goto-char cur))))
1105 (beginning-of-line)
1113 (beginning-of-line)
1124 ;; Update the highlighted line in an rmail summary buffer.
1125 ;; That should be current. We highlight the line point is on.
1138 (save-excursion (beginning-of-line)
1141 (save-excursion (end-of-line) (point)))
1160 (move-to-window-line (- ht 2))
1161 (end-of-line)
1186 (move-to-window-line 0)
1187 (beginning-of-line)
1224 (goto-char (point-min))
1227 (goto-char (point-max))
1301 (rmail-summary-goto-msg msg))))
1321 (forward-line -1))
1430 (goto-char (point-min)))
1555 (progn (rmail-summary-goto-msg)
1581 (progn (rmail-summary-goto-msg)