comparison lisp/mail/rmailsum.el @ 14293:87b4bd8fea26

(rmail-make-basic-summary-line): Include msg line number. (rmail-summary-goto-msg): Pass along args NOWARN and SKIP-RMAIL in recursive call.

14292:7e97c9b8801f

				     (setq lo (cond ((< (- mch 14) 0) 0)
						    ((< len (+ mch 11))
						     (- len 25))
						    (t (- mch 14))))
				     (min len (+ lo 25))))))))
	  "  #"
	  (if (re-search-forward "^Subject:" nil t)
	      (progn (skip-chars-forward " \t")
		     (buffer-substring (point)
				       (progn (end-of-line)

Deleted messages stay in the file until the \\[rmail-expunge] command is given."
  (interactive)
  (rmail-summary-delete-forward t))

(defun rmail-summary-mark-deleted (&optional n undel)
  (and n (rmail-summary-goto-msg n t t))
  (or (eobp)
      (not (overlay-get rmail-summary-overlay 'face))
      (let ((buffer-read-only nil))
	(skip-chars-forward " ")

  '("Next" . rmail-summary-next-all))

(defvar rmail-summary-overlay nil)
(put 'rmail-summary-overlay 'permanent-local t)

(defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
  (interactive "P")
  (if (consp n) (setq n (prefix-numeric-value n)))
  (if (eobp) (forward-line -1))
  (beginning-of-line)

	  (progn (message "No preceding message")
		 (setq n 1)))
      (if (> n total)
	  (progn (message "No following message")
		 (goto-char (point-max))
		 (rmail-summary-goto-msg)))
      (goto-char (point-min))
      (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t))
	  (progn (or nowarn (message "Message %d not found" n))
		 (setq n curmsg)
		 (setq message-not-found t)

14293:87b4bd8fea26

				     (setq lo (cond ((< (- mch 14) 0) 0)
						    ((< len (+ mch 11))
						     (- len 25))
						    (t (- mch 14))))
				     (min len (+ lo 25))))))))
	  (save-excursion
	    (save-restriction
	      (widen)
	      (let
		  ((lines (count-lines (rmail-msgbeg msgnum) (rmail-msgend msgnum))))
		(format (cond
			 ((<= lines     9) "   [%d]")
			 ((<= lines    99) "  [%d]")
			 ((<= lines   999) " [%3d]")
			 (t		    "[%d]"))
			lines))))
	  "  #"
	  (if (re-search-forward "^Subject:" nil t)
	      (progn (skip-chars-forward " \t")
		     (buffer-substring (point)
				       (progn (end-of-line)

Deleted messages stay in the file until the \\[rmail-expunge] command is given."
  (interactive)
  (rmail-summary-delete-forward t))

(defun rmail-summary-mark-deleted (&optional n undel)
  ;; Since third arg is t, this only alters the summary, not the Rmail buf.
  (and n (rmail-summary-goto-msg n t t))
  (or (eobp)
      (not (overlay-get rmail-summary-overlay 'face))
      (let ((buffer-read-only nil))
	(skip-chars-forward " ")

  '("Next" . rmail-summary-next-all))

(defvar rmail-summary-overlay nil)
(put 'rmail-summary-overlay 'permanent-local t)

;; Go to message N in the summary buffer which is current,
;; and in the corresponding Rmail buffer.
;; If N is nil, use the message corresponding to point in the summary
;; and move to that message in the Rmail buffer.

;; If NOWARN, don't say anything if N is out of range.
;; If SKIP-RMAIL, don't do anything to the Rmail buffer.

(defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
  (interactive "P")
  (if (consp n) (setq n (prefix-numeric-value n)))
  (if (eobp) (forward-line -1))
  (beginning-of-line)

	  (progn (message "No preceding message")
		 (setq n 1)))
      (if (> n total)
	  (progn (message "No following message")
		 (goto-char (point-max))
		 (rmail-summary-goto-msg nil nowarn skip-rmail)))
      (goto-char (point-min))
      (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t))
	  (progn (or nowarn (message "Message %d not found" n))
		 (setq n curmsg)
		 (setq message-not-found t)