[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el

[Juanma Barranquero]

Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.30 emacs/lisp/mail/supercite.el:1.31
*** emacs/lisp/mail/supercite.el:1.30   Fri Mar  8 16:08:19 2002
--- emacs/lisp/mail/supercite.el        Tue Feb  4 08:14:00 2003
***************
*** 250,256 ****
             the number of lines in the region is greater than this
             value, a warning message will be printed and the region
             will not be cited.  Lines in region are counted with
!            `count-lines'. 
  
  The gathering of attribution information is not affected by the value
  of this variable.  The number of lines in the region is calculated
--- 250,256 ----
             the number of lines in the region is greater than this
             value, a warning message will be printed and the region
             will not be cited.  Lines in region are counted with
!            `count-lines'.
  
  The gathering of attribution information is not affected by the value
  of this variable.  The number of lines in the region is calculated
***************
*** 595,601 ****
    (define-key sc-mode-map "\C-b" 'sc-submit-bug-report)
    (define-key sc-mode-map "?"    'sc-describe)
    )
!   
  (defvar sc-electric-mode-map ()
    "Keymap for `sc-electric-mode' electric references mode.")
  (if sc-electric-mode-map
--- 595,601 ----
    (define-key sc-mode-map "\C-b" 'sc-submit-bug-report)
    (define-key sc-mode-map "?"    'sc-describe)
    )
! 
  (defvar sc-electric-mode-map ()
    "Keymap for `sc-electric-mode' electric references mode.")
  (if sc-electric-mode-map
***************
*** 1152,1158 ****
  This populates the `sc-attributions' with the list of possible attributions."
    (if (and (stringp from)
           (< 0 (length from)))
!       (let* ((sc-mumble "")        
             (namestring (sc-attribs-extract-namestring from))
             (namelist   (sc-attribs-filter-namelist
                          (sc-attribs-chop-namestring namestring)))
--- 1152,1158 ----
  This populates the `sc-attributions' with the list of possible attributions."
    (if (and (stringp from)
           (< 0 (length from)))
!       (let* ((sc-mumble "")
             (namestring (sc-attribs-extract-namestring from))
             (namelist   (sc-attribs-filter-namelist
                          (sc-attribs-chop-namestring namestring)))
***************
*** 1164,1170 ****
             (emailname  (sc-attribs-emailname from))
             (n 1)
             author middlenames)
!     
        ;; put basic information
        (setq
         ;; put middle names and build sc-author entry
--- 1164,1170 ----
             (emailname  (sc-attribs-emailname from))
             (n 1)
             author middlenames)
! 
        ;; put basic information
        (setq
         ;; put middle names and build sc-author entry
***************
*** 1342,1348 ****
              (setq citation choice
                    attribution (or (sc-guess-attribution citation)
                                    citation))
!           
            (setq citation (sc-make-citation choice)
                  attribution choice))
          ))
--- 1342,1348 ----
              (setq citation choice
                    attribution (or (sc-guess-attribution citation)
                                    citation))
! 
            (setq citation (sc-make-citation choice)
                  attribution choice))
          ))
***************
*** 1543,1549 ****
                   sc-default-uncite-frame)))
      (run-hooks 'sc-pre-uncite-hook)
      (regi-interpret frame start end)))
!       
  (defun sc-recite-region (start end)
    "Recite a region delineated by START and END.
  First runs `sc-pre-recite-hook'."
--- 1543,1549 ----
                   sc-default-uncite-frame)))
      (run-hooks 'sc-pre-uncite-hook)
      (regi-interpret frame start end)))
! 
  (defun sc-recite-region (start end)
    "Recite a region delineated by START and END.
  First runs `sc-pre-recite-hook'."
***************
*** 1702,1708 ****
        (progn
          (eval ref)
          (let ((lines (count-lines (point-min) (point-max))))
!           (or nomsg (message "Ref header %d [%d line%s]: %s" 
                               sc-eref-style lines
                               (if (= lines 1) "" "s")
                               ref))))
--- 1702,1708 ----
        (progn
          (eval ref)
          (let ((lines (count-lines (point-min) (point-max))))
!           (or nomsg (message "Ref header %d [%d line%s]: %s"
                               sc-eref-style lines
                               (if (= lines 1) "" "s")
                               ref))))
***************
*** 2020,2026 ****
         (mark-active t)                ; for Emacs
         (point (point-marker))
         (mark  (copy-marker (mark-marker))))
!   
      ;; make sure point comes before mark, not all functions are
      ;; interactive "r"
      (if (< mark point)
--- 2020,2026 ----
         (mark-active t)                ; for Emacs
         (point (point-marker))
         (mark  (copy-marker (mark-marker))))
! 
      ;; make sure point comes before mark, not all functions are
      ;; interactive "r"
      (if (< mark point)