comparison lisp/mail/rmaildesc.el @ 88258:e03b9b63e187

(rmail-desc-set-attribute): Use rmail-header-add-header instead of rmail-header-set-header.

88257:b6d2078cce14

	code)
    (setq code (if state
		   (car (cdr (assoc attr-index rmail-desc-attr-alist)))
		 ?-))
    (aset attributes attr-index code)
    (rmail-header-persist-attributes attributes)))

(defun rmail-desc-set-start (n pos)
  "Set the start position for message N to POS."
  (set-marker (nth rmail-desc-beg-index (rmail-desc-get-descriptor n)) pos))

88258:e03b9b63e187

	code)
    (setq code (if state
		   (car (cdr (assoc attr-index rmail-desc-attr-alist)))
		 ?-))
    (aset attributes attr-index code)
    (rmail-header-add-header rmail-header-attribute-header attributes)))

(defun rmail-desc-set-start (n pos)
  "Set the start position for message N to POS."
  (set-marker (nth rmail-desc-beg-index (rmail-desc-get-descriptor n)) pos))