Lines Matching +refs:point +refs:min
57 (fcc . mh-folder-expand-at-point)
68 Each hook function can find the citation between point and mark.
69 And each hook function should leave point and mark around the
243 "Find header field region between point and LIMIT."
244 (and (< (point) (mh-letter-header-end))
245 (< (point) limit)
246 (let ((end (min limit (mh-letter-header-end)))
247 (point (point))
255 (setq data-begin (point-min))
258 (setq data-begin (max point data-begin))
259 (goto-char (if (equal point data-end) (1+ data-end) data-end))
272 (goto-char (point-min))
273 (cond ((equal mh-mail-header-separator "") (point-min))
276 (t (point-min)))))
328 (buffer-substring-no-properties (point) (mh-line-end-position))))
399 This command leaves the mark before the letter and point after it."
420 (narrow-to-region (point) (point))
421 (let ((start (point-min)))
426 (goto-char (point-max)) ;Needed for sc-cite-original
428 (goto-char (point-min)) ;Needed for sc-cite-original
459 (narrow-to-region (point) (point))
485 (goto-char (point-min))
488 (> (point-max) (point-min))
495 (if (not (> (point-max) (point-min)))
500 "Perform completion on header field or word preceding point.
513 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
533 ((> (point) end-of-prev) (self-insert-command arg))
534 ((setq func (cdr (assoc (mh-letter-header-field-at-point)
547 ((eq (cdr (assoc (mh-letter-header-field-at-point)
561 command then moves point to the message body before cycling back
562 to the first field. If point is already past the first line of
569 (point))))
570 (if (> (point) header-end)
580 point to the last field from anywhere in the body."
583 (if (>= (point) header-end)
595 "Insert a newline and leave point before it.
598 inserts a newline after point. It differs in that it also inserts
606 (message "Sorry, point seems to be within the line prefix")
622 (goto-char (point-min))
654 Set the mark to point before moving."
665 (let ((eol (point)))
667 (delete-region (point) eol))
719 (let ((to-point (point))
734 (buffer-substring (point-min) (mh-mail-header-end))
744 (goto-char (point-min))
746 (point))
747 (point-max)))
751 (buffer-substring (point-min) (point-max)))
753 (buffer-substring (point) (point-max))))))
756 (narrow-to-region to-point to-point)
758 (goto-char (point-max)) ;Needed for sc-cite-original
760 (goto-char (point-min)) ;Needed for sc-cite-original
773 (goto-char (point-max))
775 (mh-exchange-point-and-mark-preserving-active-mark)))))
797 (goto-char (point-min))
803 (cond ((and (not (get-text-property (point) 'mh-data))
805 (delete-region (1- (point)) (point))
807 ((get-text-property (point) 'mh-data)
808 (delete-region (point)
809 (save-excursion (forward-line) (point)))
815 (buffer-substring-no-properties (point-min) (point-max))))
835 (cond ((>= (point) header-end) (goto-char (point-min)))
836 ((< (point) (progn
840 (point)))
863 (defun mh-letter-header-field-at-point ()
864 "Return the header field name at point.
872 (defun mh-folder-expand-at-point ()
874 (let* ((end (point))
948 (goto-char (point-min))
958 (while (< (point) (point-max))
961 (goto-char (point-min))))) ;leave point like sc-cite-original