← Back to branch summary

~ubuntu-branches/ubuntu/precise/topal/precise

« back to all changes in this revision

Viewing changes to externals-mail.ads

  • Committer: Bazaar Package Importer
  • Author(s): Phil Brooke
  • Date: 2011-07-04 12:25:03 UTC
  • mfrom: (1.2.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20110704122503-sxyon0imhkllayz2
Tags: 74-1
* New upstream release.
* Bump standards-version to 3.9.2.
* Upstream documentation changes:
   * No longer need weblint.
   * Uses some texlive packages instead.
   * Remove LaTeX aux files in clean target.
   * Updated debian/docs.
   * Rename and convert Changelog.html to text.
* Added build-arch and build-indep targets.

Show diffs side-by-side

added added

removed removed

Lines of Context:
externals-mail.ads
1
1
-- Topal: GPG/GnuPG and Alpine/Pine integration
 
2
-- Copyright (C) 2001--2011  Phillip J. Brooke
2
3
--
3
4
-- This program is free software: you can redistribute it and/or modify
4
5
-- it under the terms of the GNU General Public License version 3 as
24
24
                              Part_One : in String;
25
25
                              Part_Two : in String;
26
26
                              Boundary : in UBS);
 
27
   
 
28
   -- Given a file, guess the boundary, then eat write the first part
 
29
   --  only into the given target.  See detailed notes in .adb file.
 
30
   procedure Get_First_Part (Infile : in String;
 
31
                             Prolog : in String;
 
32
                             Boundary : out UBS;
 
33
                             Part_Hdr : in String;
 
34
                             Part_Body : in String;
 
35
                             Remainder : in String);
27
36
 
28
37
   -- Extract a content-type from the header of a header-body mail into a
29
38
   -- file.
48
57
 
49
58
   procedure Delete_Trailing_Blank_Lines (Infile  : in String;
50
59
                                          Outfile : in String);
 
60
   
 
61
   -- Clean up an email address in a file.
 
62
   procedure Clean_Email_Address (F : in String);
 
63
   -- Or string-to-string.
 
64
   function Clean_Email_Address (E : in String) return String;
51
65
 
52
66
   procedure Formail_Concat_Extract_InOut (Header : in String;
53
67
                                           Source : in String;
61
75
   procedure Formail_Action_InOut (Source : in String;
62
76
                                   Target : in String;
63
77
                                   Action : in String);
 
78
   
 
79
   -- Runs formail -I Header
 
80
   procedure Formail_Replace_Header_InOut (Source : in String;
 
81
                                           Target : in String;
 
82
                                           Header : in String);
 
83
   procedure Formail_Replace_Header (File   : in String;
 
84
                                     Header : in String);
 
85
   
64
86
 
65
87
   -- Construct a top-level 2 part MIME email.
66
88
   procedure Mimeconstruct2 (Part1_Filename  : in String;
95
117
 
96
118
   -- Quoted-printable decode from infile to outfile.
97
119
   procedure QP_Decode (Infile, Outfile : in String);
 
120
   
 
121
   -- Return hash of file.
 
122
   function Hash_SHA1 (Infile : in String) return String;
 
123
      
 
124
   -- Replace message-id or content-id....
 
125
   procedure Replace_Message_ID(Hdrfile  : in String;
 
126
                                Alt_Sign : in String;
 
127
                                Encrypt_Message_ID : in Boolean;
 
128
                                Encrypt_Key : in String);
 
129
   procedure Replace_Content_IDs(Tmpfile  : in String;
 
130
                                 Alt_Sign : in String);
 
131
   
 
132
   -- Calculate a token for an X-Topal-Send-Token header.
 
133
   function Calculate_Send_Token(Hdrfile        : in String;
 
134
                                 Per_User_Token : in String) return String;
 
135
   
 
136
   -- Filter an email.  Write an X-Topal-Check-Send-Token header, Yes or No.
 
137
   -- Only call this if procmail reports that the user matches (in
 
138
   --  From:) and that there is an X-Topal-Send-Token header.
 
139
   procedure Check_Send_Token(Per_User_Token : in String);
98
140
 
99
141
end Externals.Mail;