comparison lisp/mail/rmailsum.el @ 88159:052f90cd157d

*** empty log message ***

88158:408bd18a297c

	     (> total 0))
	(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)
	       (goto-char cur)))
    (beginning-of-line)

(defun rmail-summary-get-line-count (n)
  "Return a string containing the count of lines in message N for the
  summary buffer if the User has enabled line counts, otherwise return
  an empty string."
  (if rmail-summary-line-count-flag
      (format "[%s]" (rmail-desc-get-line-count n))
    ""))

(defun rmail-summary-get-summary-attributes (n)
  "Return the attribute character codes to use in the summary buffer
  for message N: `-' for an unseen message, `D' for a message marked

          (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " ")))

(defun rmail-summary-get-summary (n)
  "Return a summary line for message N."
  (funcall rmail-summary-line-decoder
	   (format "%4s%s%6s %25s %s %s\n"
		   n
		   (rmail-summary-get-summary-attributes n)
		   (concat (rmail-desc-get-day-number n) "-"
			   (rmail-desc-get-month n))
		   (rmail-desc-get-sender n)

88159:052f90cd157d

	     (> total 0))
	(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 "^%5d[^0-9]" n) nil t))
	(progn (or nowarn (message "Message %d not found" n))
	       (setq n curmsg)
	       (setq message-not-found t)
	       (goto-char cur)))
    (beginning-of-line)

(defun rmail-summary-get-line-count (n)
  "Return a string containing the count of lines in message N for the
  summary buffer if the User has enabled line counts, otherwise return
  an empty string."
  (if rmail-summary-line-count-flag
      (let ((lines (rmail-desc-get-line-count n)))
	(format (cond ((<= lines     9) "   [%d]")
		      ((<= lines    99) "  [%d]")
		      ((<= lines   999) " [%3d]")
		      (t "[%d]"))
		lines))
    ""))

(defun rmail-summary-get-summary-attributes (n)
  "Return the attribute character codes to use in the summary buffer
  for message N: `-' for an unseen message, `D' for a message marked

          (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " ")))

(defun rmail-summary-get-summary (n)
  "Return a summary line for message N."
  (funcall rmail-summary-line-decoder
	   (format "%5s%s%6s %25s %s %s\n"
		   n
		   (rmail-summary-get-summary-attributes n)
		   (concat (rmail-desc-get-day-number n) "-"
			   (rmail-desc-get-month n))
		   (rmail-desc-get-sender n)