emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/rfc1843.el
Date: Sat, 04 Sep 2004 09:28:38 -0400

Index: emacs/lisp/gnus/rfc1843.el
diff -c emacs/lisp/gnus/rfc1843.el:1.5 emacs/lisp/gnus/rfc1843.el:1.6
*** emacs/lisp/gnus/rfc1843.el:1.5      Mon Sep  1 15:45:26 2003
--- emacs/lisp/gnus/rfc1843.el  Sat Sep  4 13:13:44 2004
***************
*** 1,5 ****
  ;;; rfc1843.el --- HZ (rfc1843) decoding
! ;; Copyright (c) 1998, 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Shenghuo Zhu <address@hidden>
  ;; Keywords: news HZ HZ+ mail i18n
--- 1,5 ----
  ;;; rfc1843.el --- HZ (rfc1843) decoding
! ;; Copyright (c) 1998, 1999, 2000, 2003 Free Software Foundation, Inc.
  
  ;; Author: Shenghuo Zhu <address@hidden>
  ;; Keywords: news HZ HZ+ mail i18n
***************
*** 43,60 ****
  
  (defvar rfc1843-hzp-word-regexp
    "~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
! [<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
  
  (defvar rfc1843-hzp-word-regexp-strictly
    "~\\({\\([\041-\167][\041-\176]\\)+\\|\
! [<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
  
  (defcustom rfc1843-decode-loosely nil
    "Loosely check HZ encoding if non-nil.
  When it is set non-nil, only buffers or strings with strictly
  HZ-encoded are decoded."
    :type 'boolean
!   :group 'gnus)
  
  (defcustom rfc1843-decode-hzp t
    "HZ+ decoding support if non-nil.
--- 43,60 ----
  
  (defvar rfc1843-hzp-word-regexp
    "~\\({\\([\041-\167][\041-\176]\\| \\)+\\|\
! \[<>]\\([\041-\175][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
  
  (defvar rfc1843-hzp-word-regexp-strictly
    "~\\({\\([\041-\167][\041-\176]\\)+\\|\
! \[<>]\\([\041-\175][\041-\176]\\)+\\)\\(~}\\|$\\)")
  
  (defcustom rfc1843-decode-loosely nil
    "Loosely check HZ encoding if non-nil.
  When it is set non-nil, only buffers or strings with strictly
  HZ-encoded are decoded."
    :type 'boolean
!   :group 'mime)
  
  (defcustom rfc1843-decode-hzp t
    "HZ+ decoding support if non-nil.
***************
*** 64,75 ****
  The document of HZ+ 0.78 specification can be found at
  ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc";
    :type 'boolean
!   :group 'gnus)
  
  (defcustom rfc1843-newsgroups-regexp "chinese\\|hz"
    "Regexp of newsgroups in which might be HZ encoded."
    :type 'string
!   :group 'gnus)
  
  (defun rfc1843-decode-region (from to)
    "Decode HZ in the region between FROM and TO."
--- 64,75 ----
  The document of HZ+ 0.78 specification can be found at
  ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc";
    :type 'boolean
!   :group 'mime)
  
  (defcustom rfc1843-newsgroups-regexp "chinese\\|hz"
    "Regexp of newsgroups in which might be HZ encoded."
    :type 'string
!   :group 'mime)
  
  (defun rfc1843-decode-region (from to)
    "Decode HZ in the region between FROM and TO."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]