[Emacs-diffs] Changes to emacs/lisp/gnus/deuglify.el

[Kim F . Storm]

Index: emacs/lisp/gnus/deuglify.el
diff -c emacs/lisp/gnus/deuglify.el:1.5 emacs/lisp/gnus/deuglify.el:1.6
*** emacs/lisp/gnus/deuglify.el:1.5     Tue Dec  7 21:56:40 2004
--- emacs/lisp/gnus/deuglify.el Wed Feb  9 15:50:39 2005
***************
*** 146,152 ****
  ;; Hey, John.  There's no in all your sentences!
  ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;; 
  ;; Usage
  ;; -----
  ;;
--- 146,152 ----
  ;; Hey, John.  There's no in all your sentences!
  ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! ;;
  ;; Usage
  ;; -----
  ;;
***************
*** 231,289 ****
  
  (defgroup gnus-outlook-deuglify nil
    "Deuglify articles generated by broken user agents like MS Outlook 
(Express)."
!   :version "21.4")
  
  ;;;###autoload
  (defcustom gnus-outlook-deuglify-unwrap-min 45
    "Minimum length of the cited line above the (possibly) wrapped line."
!   :version "21.4"
    :type 'integer
    :group 'gnus-outlook-deuglify)
  
  ;;;###autoload
  (defcustom gnus-outlook-deuglify-unwrap-max 95
    "Maximum length of the cited line after unwrapping."
!   :version "21.4"
    :type 'integer
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-cite-marks ">|#%"
    "Characters that indicate cited lines."
!   :version "21.4"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil
    "Characters that inhibit unwrapping if they are the last one on the cited 
line above the possible wrapped line."
!   :version "21.4"
    :type '(radio (const :format "None  " nil)
                (string :value ".?!"))
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-no-wrap-chars "`"
    "Characters that inhibit unwrapping if they are the first one in the 
possibly wrapped line."
!   :version "21.4"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom  gnus-outlook-deuglify-attrib-cut-regexp
    "\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, "
    "Regular expression matching the beginning of an attribution line that 
should be cut off."
!   :version "21.4"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-attrib-verb-regexp
    "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a 
écrit\\|schreef\\|escribió"
    "Regular expression matching the verb used in an attribution line."
!   :version "21.4"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom  gnus-outlook-deuglify-attrib-end-regexp
    ": *\\|\\.\\.\\."
    "Regular expression matching the end of an attribution line."
!   :version "21.4"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
--- 231,289 ----
  
  (defgroup gnus-outlook-deuglify nil
    "Deuglify articles generated by broken user agents like MS Outlook 
(Express)."
!   :version "22.1")
  
  ;;;###autoload
  (defcustom gnus-outlook-deuglify-unwrap-min 45
    "Minimum length of the cited line above the (possibly) wrapped line."
!   :version "22.1"
    :type 'integer
    :group 'gnus-outlook-deuglify)
  
  ;;;###autoload
  (defcustom gnus-outlook-deuglify-unwrap-max 95
    "Maximum length of the cited line after unwrapping."
!   :version "22.1"
    :type 'integer
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-cite-marks ">|#%"
    "Characters that indicate cited lines."
!   :version "22.1"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil
    "Characters that inhibit unwrapping if they are the last one on the cited 
line above the possible wrapped line."
!   :version "22.1"
    :type '(radio (const :format "None  " nil)
                (string :value ".?!"))
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-no-wrap-chars "`"
    "Characters that inhibit unwrapping if they are the first one in the 
possibly wrapped line."
!   :version "22.1"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom  gnus-outlook-deuglify-attrib-cut-regexp
    "\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, "
    "Regular expression matching the beginning of an attribution line that 
should be cut off."
!   :version "22.1"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom gnus-outlook-deuglify-attrib-verb-regexp
    "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a 
écrit\\|schreef\\|escribió"
    "Regular expression matching the verb used in an attribution line."
!   :version "22.1"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
  (defcustom  gnus-outlook-deuglify-attrib-end-regexp
    ": *\\|\\.\\.\\."
    "Regular expression matching the end of an attribution line."
!   :version "22.1"
    :type 'string
    :group 'gnus-outlook-deuglify)
  
***************
*** 291,297 ****
  (defcustom gnus-outlook-display-hook nil
    "A hook called after an deuglified article has been prepared.
  It is run after `gnus-article-prepare-hook'."
!   :version "21.4"
    :type 'hook
    :group 'gnus-outlook-deuglify)
  
--- 291,297 ----
  (defcustom gnus-outlook-display-hook nil
    "A hook called after an deuglified article has been prepared.
  It is run after `gnus-article-prepare-hook'."
!   :version "22.1"
    :type 'hook
    :group 'gnus-outlook-deuglify)