* [Comm] Xemacs Mailcrypt и GPG проблема
@ 2003-05-13 17:11 Igor Anikeev
2003-05-13 17:59 ` Sergey Bolshakov
0 siblings, 1 reply; 3+ messages in thread
From: Igor Anikeev @ 2003-05-13 17:11 UTC (permalink / raw)
To: community
Добрый вечер :)
Стоит 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.
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [Comm] Xemacs Mailcrypt и GPG проблема
2003-05-13 17:11 [Comm] Xemacs Mailcrypt и GPG проблема Igor Anikeev
@ 2003-05-13 17:59 ` Sergey Bolshakov
2003-05-13 19:38 ` Igor Anikeev
0 siblings, 1 reply; 3+ messages in thread
From: Sergey Bolshakov @ 2003-05-13 17:59 UTC (permalink / raw)
To: community
>>>>> "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 И кстати, не пробовали подписанное сообщение посмотреть
из более другой читалки ?
--
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [Comm] Xemacs Mailcrypt и GPG проблема
2003-05-13 17:59 ` Sergey Bolshakov
@ 2003-05-13 19:38 ` Igor Anikeev
0 siblings, 0 replies; 3+ messages in thread
From: Igor Anikeev @ 2003-05-13 19:38 UTC (permalink / raw)
To: community
[-- 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.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2003-05-13 19:38 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-05-13 17:11 [Comm] Xemacs Mailcrypt и GPG проблема Igor Anikeev
2003-05-13 17:59 ` Sergey Bolshakov
2003-05-13 19:38 ` Igor Anikeev
ALT Linux Community general discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/community/0 community/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 community community/ http://lore.altlinux.org/community \
mandrake-russian@linuxteam.iplabs.ru community@lists.altlinux.org community@lists.altlinux.ru community@lists.altlinux.com
public-inbox-index community
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.community
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git