[Comm] Xemacs Mailcrypt и GPG проблема

[Comm] Xemacs Mailcrypt и GPG проблема

[Igor Anikeev]

Добрый вечер :)

Стоит Xemacs MULE 21.4.10, Mailcrypt 3.5.8 и GNUS 5.8.8 GnuPG 1.2.1 все это
поверх Junior 2.2.

в gpg.conf следующее:

=== cut here ===
# Options for GnuPG
# Copyright 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
# 
# This file is free software; as a special exception the author gives
# unlimited permission to copy and/or distribute it, with or without
# modifications, as long as this notice is preserved.
# 
# This file is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# Unless you specify which option file to use (with the command line
# option "--options filename"), GnuPG uses the file ~/.gnupg/gpg.conf
# by default.
#
# An options file can contain any long options which are available in
# GnuPG. If the first non white space character of a line is a '#',
# this line is ignored.  Empty lines are also ignored.
#
# See the man page for a list of options.

# Comment out the following option to reenable the copyright notice
no-greeting

# If you have more than 1 secret key in your keyring, you may want to
# uncomment the following option and set your preferred keyid.
#default-key 621CC013

# If you do not pass a recipient to gpg, it will ask for one.  Using
# this option you can encrypt to a default key.  Key validation will
# not be done in this case.  The second form uses the default key as
# default recipient.
#default-recipient some-user-id
#default-recipient-self

# Same  as  --recipient but this one is intended for use in the
# options file and may be used with  your  own  user-id  as  an
# "encrypt-to-self".   These  keys are only used when there are
# other recipients given either by use of --recipient or by the
# asked user id.  No trust checking is performed for these user
# ids and even disabled keys can be used.
#encrypt-to 9658398D181B12008FC526B8F6F8846BC1E23429

# By default GnuPG creates version 3 signatures for data files.  This
# is not strictly OpenPGP compliant but PGP 6 and most versions of PGP
# 7 require them.  To disable this behavior, you may use this option
# or --openpgp.
#no-force-v3-sigs

# Because some mailers change lines starting with "From " to ">From "
# it is good to handle such lines in a special way when creating
# cleartext signatures; all other PGP versions do it this way too.
# To enable full OpenPGP compliance you may want to use this option.
#no-escape-from-lines

# If you do not use the Latin-1 (ISO-8859-1) charset, you should tell
# GnuPG which is the native character set.  Please check the man page
# for supported character sets.  This character set is only used for
# Meta data and not for the actual message which does not undergo any
# translation.  If this option is not used, the default character set
# is determined from the current locale.
charset koi8-r

# Group names may be defined like this:
#   group mynames paige 0x12345678 joe patti
#
# Any time "mynames" is a recipient (-r or --recipient), it will be
# expanded to the names "paige", "joe", and "patti", and the key ID
# "0x12345678".  Note there is only one level of expansion - you
# cannot make an group that points to another group.  Note also that
# if there are spaces in the recipient name, this will appear as two
# recipients.  In these cases it is better to use the key ID.
#group mynames paige 0x12345678 joe patti

# Lock the file only once for the lifetime of a process.  If you do
# not define this, the lock will be obtained and released every time
# it is needed - normally this is not needed.
#lock-once

# GnuPG can send and receive keys to and from a keyserver.  These
# servers can be HKP, email, or LDAP (if GnuPG is built with LDAP
# support).
#
# Example HKP keyserver:
#      x-hkp://pgp.mit.edu
#
# Example email keyserver:
#      mailto:pgp-public-keys@keys.nl.pgp.net
#
# Example LDAP keyservers:
#      ldap://pgp.surfnet.nl:11370
#      ldap://keyserver.pgp.com
#
# Regular URL syntax applies, and you can set an alternate port
# through the usual method:
#      x-hkp://keyserver.example.net:22742
#
# If you have problems connecting to a HKP server through a buggy http
# proxy, you can use keyserver option broken-http-proxy (see below),
# but first you should make sure that you have read the man page
# regarding proxies (keyserver option honor-http-proxy)
#
# Most users just set the name and type of their preferred keyserver.
# Most servers do synchronize with each other and DNS round-robin may
# give you a quasi-random server each time.
#keyserver x-hkp://wwwkeys.pgp.net
#keyserver x-hkp://pgp.mit.edu
#keyserver mailto:pgp-public-keys@keys.nl.pgp.net
#keyserver ldap://pgp.surfnet.nl:11370
keyserver ldap://keyserver.pgp.com

# Common options for keyserver functions:
#
# include-disabled = when searching, include keys marked as "disabled"
#                    on the keyserver (not all keyservers support this).
#
# no-include-revoked = when searching, do not include keys marked as
#                      "revoked" on the keyserver.
#
# verbose = show more information as the keys are fetched.
#           Can be used more than once to increase the amount
#           of information shown.
#
# use-temp-files = use temporary files instead of a pipe to talk to the
#                  keyserver.  Some platforms (Win32 for one) always
#                  have this on.
#
# keep-temp-files = do not delete temporary files after using them
#                   (really only useful for debugging)
#
# honor-http-proxy = if the keyserver uses HTTP, honor the http_proxy
#                    environment variable
#
# broken-http-proxy = try to work around a buggy HTTP proxy
#
# auto-key-retrieve = automatically fetch keys as needed from the keyserver
#                     when verifying signatures or when importing keys that
#                     have been revoked by a revocation key that is not
#                     present on the keyring.
#
# no-include-attributes = do not include attribute IDs (aka "photo IDs")
#                         when sending keys to the keyserver.
keyserver-options auto-key-retrieve

# Uncomment this line to display photo user IDs in key listings and
# when a signature from a key with a photo is verified.
show-photos

# Use this program to display photo user IDs
#
# %i is expanded to a temporary file that contains the photo.
# %I is the same as %i, but the file isn't deleted afterwards by GnuPG.
# %k is expanded to the key ID of the key.
# %K is expanded to the long OpenPGP key ID of the key.
# %t is expanded to the extension of the image (e.g. "jpg").
# %T is expanded to the MIME type of the image (e.g. "image/jpeg").
# %f is expanded to the fingerprint of the key.
# %% is %, of course.
#
# If %i or %I are not present, then the photo is supplied to the
# viewer on standard input.  If your platform supports it, standard
# input is the best way to do this as it avoids the time and effort in
# generating and then cleaning up a secure temp file.
#
# The default program is "xloadimage -fork -quiet -title 'KeyID 0x%k' stdin"
# On Mac OS X and Windows, the default is to use your regular image viewer.
#
# Some other viewers:
# photo-viewer "qiv %i"
# photo-viewer "ee %i"
# photo-viewer "display -title 'KeyID 0x%k'"
#
# This one saves a copy of the photo ID in your home directory:
# photo-viewer "cat > ~/photoid-for-key-%k.%t"
#
# Use your MIME handler to view photos:
# photo-viewer "metamail -q -d -b -c %T -s 'KeyID 0x%k' -f GnuPG"

# Uncomment following lines if you have those extensions installed.
#load-extension idea

# Passphrase agent
#
# We support the old experimental passphrase agent protocol as well
# as the new Assuan based one (currently available in the "newpg" package
# at ftp.gnupg.org/gcrypt/alpha/aegypten/).  To make use of the agent, you have
# to run an agent as daemon and use the option
#
#use-agent
 
# which tries to use the agent but will fallback to the regular mode
# if there is a problem connecting to the agent.  The normal way to
# locate the agent is by looking at the environment variable
# GPG_AGENT_INFO which should have been set during gpg-agent startup.
# In certain situations the use of this variable is not possible, thus
# the option
# 
# --gpg-agent-info=<path>:<pid>:1
#
# may be used to override it.

# Comment out the next line to reenable the warning about "using insecure memory".
no-secmem-warning
=== cut here ===

Проблема в следующем: при попытке подписать сообщение, все прекрасно
подписывается, но русский текст (латиницу, если честно, не пробовал, но
знаки препинания сохраняются) првращается в "~~~~~~~~~~~,~~
~~,~~~~~~~~~~~~". В общем, смысл понятен :)  Как этого избежать?  Или
нужна дополнительная информация?

-- 
Take care,
Igor.

Re: [Comm] Xemacs Mailcrypt и GPG проблема

[Sergey Bolshakov]

>>>>> "Igor" == Igor Anikeev <insider@t-k.ru> writes:

 > Добрый вечер :)
 > Стоит Xemacs MULE 21.4.10, Mailcrypt 3.5.8 и GNUS 5.8.8 GnuPG 1.2.1 все это
 > поверх Junior 2.2.

 > в gpg.conf следующее:
[skipped]

 > Проблема в следующем: при попытке подписать сообщение, все прекрасно
 > подписывается, но русский текст (латиницу, если честно, не пробовал, но
 > знаки препинания сохраняются) првращается в "~~~~~~~~~~~,~~
 > ~~,~~~~~~~~~~~~". В общем, смысл понятен :)  Как этого избежать?  Или
 > нужна дополнительная информация?

Из простых решений:

- пользовать xemacs-nomule или
- апгрейдить gnus до 5.10.x , которого в Сизифе пока нет :),
  выкинуть mailcrypt и пользовать pgg.

Если хочется разбираться с тем, что есть - показывайте
.xemacs/{init,custom}.el вместе с ~/.gnus

PS И кстати, не пробовали подписанное сообщение посмотреть
из более другой читалки ?

-- 

Re: [Comm] Xemacs Mailcrypt и GPG проблема

[Igor Anikeev]

[-- Attachment #1: Type: text/plain, Size: 147 bytes --]

Смотрел из KMaila - говорит, что подпись просто классная, а вот текст:
"~~~~~~~", ну, как и в прошлый раз.  Приаттачены {init,custom}.el .emacs
и

[-- Attachment #2: gnus --]
[-- Type: text/plain, Size: 6029 bytes --]


;  -*- emacs-lisp -*-

;=============
; Your personal settings
(setq user-mail-address "insider@t-k.ru") 
(setq user-full-name "Igor Anikeev")
		  
			     
;=============
;; Your newsserver
(setq
        gnus-inhibit-startup-message t
        gnus-use-sc t
        gnus-use-trees nil
        gnus-select-method '(nntp "insider.home"))


;; Mail Configuration
(setq gnus-secondary-select-methods
	'((nnml "private")))
	
(setq nnmail-split-methods
    '(("personal" "^To:.*insider@t-k.ru")
      ("altlinux.community" "^List-Id: <community.altlinux.ru>")
      ("altlinux.talkroom"  "^List-Id: <talk-room.altlinux.ru>")
      ("altlinux.legal" "^List-Id: <legal.lrn.ru>")
      ("altlinux.ruby" "^List-Id: Ruby usage and development around it <ruby.altlinux.ru>")
      ("sf.net" "^From:.*SourceForge.net")
      ("netbeans.discuss-ru" "^From: nbdiscuss_ru-help@netbeans.org")
      ("netbeans.announce" "^list-post: <mailto:nbannounce@netbeans.org>")
      ("netbeans.openide" "^list-post: <mailto:dev@openide.netbeans.org>")
      ("netbeans.ui" "^list-post: <mailto:nbui@netbeans.org>")
      ("netbeans.users" "^list-post: <mailto:nbusers@netbeans.org>")
      ("other" "")))	
	

(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-default-smtp-server "127.0.0.1")

;; wrap messages at 72
(add-hook 'message-mode-hook
    (lambda()
	(setq fill-column 72)
	(turn-on-auto-fill)))
	
	
;; locally store sent mail and news
(setq gnus-message-archive-group
    '((if (message-news-p)
	"nnml:Send-News"
       "nnml:Send-Mail")))	
       
       
(add-hook 'message-send-hook 'my-message-add-content)
(defun my-message-add-content ()
    (message-add-header "Keywords: 5525434"))
    

(add-hook
 'message-setup-hook
 '(lambda ()
    ;; Add X-Comment-To: field. We need From: field from original
    ;; letter. How to get right?
    (if message-reply-buffer
        (let ((cur-buffer (current-buffer)) from-field)
          (save-excursion
            (set-buffer message-reply-buffer)
            (if (string-match "^From:" (buffer-string))
                (progn
                  (setq from-start (+ (match-end 0) 1))
                  (goto-char from-start)
                  (end-of-line)
                  (setq from-field (buffer-substring from-start (point))))))
          (if from-field
              (save-excursion
                (goto-char (point-min))
                (insert "X-Comment-To: " (Make-Comment-To from-field) "\n"))))
      )))

(defun Make-Comment-To (from)
  (if (string-match " *<.*> *" from)
      (concat (substring from 0 (match-beginning 0)) (substring from
                                                                (match-end 0)))


   (if (string-match "\(.*\)" from)
       (substring from (+ (match-beginning 0) 1) (- (match-end 0) 1))
     from
     )
   )
 )
   

;
;From: Ivan Crivoruchko <Ivan_Crivoruchko@f470.n5030.z2.fidonet.org>
;========================<CUT>========================

(defun sc-break-cited-line ()
  "Break cited line. Do it correctly."
  (interactive)
  (delete-horizontal-space)
  (newline)
  (forward-line -1)
  (let ((cited (looking-at (sc-cite-regexp))))
    (forward-line)
    (if cited (progn (sc-cite-line) (just-one-space)))))

(defun sc-header-hello-attributed-writes ()
  "Insert Hi, sc-firstneme, then sc-header-attributed-writes"
  (insert
   (concat "\nHi, " (sc-mail-field "sc-firstname") "!\n\n"))
  (my-header-line-generator)
;  (sc-header-attributed-writes)
  )

(defun sc-install-rewrite-header-fn (new-fn)
  "Install new header rewrite function and make it preffered"
  (setq sc-preferred-header-style (length sc-rewrite-header-list))
  (setq sc-rewrite-header-list
        (append sc-rewrite-header-list `((,new-fn)))))

(defun ic-cite-message ()
  (sc-cite-original)
  (local-set-key "\C-m" 'sc-break-cited-line))

(setq message-cite-function 'ic-cite-message)

(setq mail-citation-hook 'ic-cite-message)
;(add-hook 'mail-citation-hook 'ic-cite-message)

(add-hook 'sc-load-hook (lambda ()
                          (sc-install-rewrite-header-fn
                           'sc-header-hello-attributed-writes)
                          (setq sc-confirm-always-p nil)))

(setq news-reply-header-hook nil)

;========================<CUT>========================

(setq sc-preferred-attribution-list
      '( "initials" "x-attribution" "firstname" "sc-lastchoice" ))

;;; sc hack by Bor.
(defun sc-add-citation-level-m ()
  "Add citation level to cited string"
  (interactive)
  (if (looking-at (sc-cite-regexp))
      (if (re-search-forward
           (concat sc-citation-leader-regexp sc-citation-root-regexp)
           )
          (insert sc-citation-delimiter)
        )
    (sc-cite-line)
    )
  )

; Cool mailcrypting stuff
(load-library "mailcrypt")
(mc-setversion "gpg")
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'message-mode-hook 'mc-install-write-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)
;; If you have more than one key, specify the one to use
(setq mc-gpg-user-id "Igor Anikeev")
;; Always sign encrypted messages
(setq mc-pgp-always-sign t)
;; How long should mailcrypt remember your passphrase
(setq mc-passwd-timeout 600)
;; Automagically sign all messages
(add-hook 'message-send-hook 'will-you-sign)
(defun will-you-sign ()
        (load-library "mc-toplev")
        (interactive)
        (if (y-or-n-p "Do you want to sign this message? ")
                (mc-sign-message)))



;; Gnus Demon
(gnus-demon-add-rescan)

;;
;; News auto rescan
;;

(setq gnus-use-demon t)
(gnus-demon-init)
(gnus-demon-add-rescan)

(defun avk-scan-new-messages ()
  "Scan for new mail and news every 15 minutes."
  (when (gnus-alive-p)
    (save-excursion
      (set-buffer gnus-group-buffer)
      (gnus-group-get-new-news))))

(gnus-demon-add-handler 'avk-scan-new-messages 5 2)
(gnus-demon-add-handler 'gnus-group-save-newsrc 10 1)


[-- Attachment #3: .emacs --]
[-- Type: text/plain, Size: 219 bytes --]



(require 'pc-selections)

;; mouse wheel for X

(autoload 'mwheel-install "mwheel" "Enable mouse wheel support.")
(mwheel-install)

;; Make all "yes or no" prompts show "y or n" instead
(fset 'yes-or-no-p 'y-or-n-p)


[-- Attachment #4: init.el --]
[-- Type: application/emacs-lisp, Size: 836 bytes --]

[-- Attachment #5: custom --]
[-- Type: application/emacs-lisp, Size: 332 bytes --]

[-- Attachment #6: Type: text/plain, Size: 30 bytes --]

 .gnus


-- 
Take care,
Igor.